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FOREWORD 


This  report  documents  the  results  of  the  research  performed  to  date  on 
the  Second  Generation  UTCS  Software  System.   This  system  provides  for 
on-line  traffic  signal  optimization.   The  documentation  will  be  of  interest 
to  urban  traffic  engineers  of  cities  who  desire  to  undertake  experiments  to 
determine  the  effectiveness  of  applying  second  generation  control  software 
(in  comparison  with  first  generation  type  software)  for  various  types  of 
networks  or  portions  of  networks. 

This  report  is  comprised  of  three  volumes  which  detail  the  second 
generation  software  which  was  converted  from  machine  dependent  language 
to  FORTRAN  and  those  enhancements  to  the  original  software  made  during 
the  conversion  effort.   This  project  was  conducted  for  the  Federal 
Highway  Administration,  Office  of  Research,  Washington,  D.  C,  under 
Contract  DOT-FH-11-8317  "UTCS  Software  Support." 

While  the  software  system  described  in  this  report  was  operational  in 
the  Washington,  D.  C,  test  facility,  it  will  require  additional  pro- 
graming effort  to  render  it  operational  in  other  cities.   It  is  this 
same  software  system  that  will  receive  further  investigation  and  become 
the  subject  of  future  research  by  the  Federal  Highway  Administration. 

Sufficient  copies  of  this  report  are  being  distributed  in  sets  of  three 
volumes  by  FHWA  bulletin  to  provide  a  minimum  of  one  set  to  each  FHWA 
regional  office,  one  set  to  each  FHWA  division  office,  and  one  set  to 
each  State  highway  agency.   Direct  distribution  is  being  made  so  that 
the  State  and  division  office  copies  are  sent  to  the  division  offices. 

C — sC?'^u~. 
Charles  F.  Scfy 
Director,  Office  of  Research 


NOTICE 

This  document  is  disseminated  under  the  sponsorship  of  the  Department  of 
Transportation  in  the  interest  of  information  exchange.   The  United 
States  Government  assumes  no  liability  for  its  contents  or  use  thereof. 

The  contents  of  this  report  reflect  the  views  of  Honeywell,  Incorporated, 
which  is  responsible  for  the  facts  and  the  accuracy  of  the  data  presented 
herein.   The  contents  do  not  necessarily  reflect  the  official  views  or 
policy  of  the  Department  of  Transportation. 

This  report  does  not  constitute  a  standard,  specification,  or  regulation. 

The  United  States  Government  does  not  endorse  products  or  manufacturers. 
Trademarks  or  manufacturers '  names  appear  herein  only  because  they  are 
considered  essential  to  the  object  of  this  document. 
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2.6    ROUTINE  LISTINGS 


RBUT INE I       &TNA 


2.6.  1    ROUTINE  A 


RTNA 
TITlE      '••••  RBUTINE  A   LEVEL  l  FXEC  ••••' 
PRBCEOURE  T»  ASSEMBLE  FUfD  MAP  ARRAY  FIELDS  (Mux  C8MMAND, 


»m  data  -.8rds  . 

mux  Command 
1  STrSBEj  *1/B1 ' 
ADDRESS 

MUX  C8MMAND 
0  STR8BE,  A2/B2 
*  ADDRESS 

W6RC  4N«t  •  MUX  CBMMAND 
WSRD  *M  ■  0  STR8BE.  A2N/ 
B?N  ADDRESS 

N8TE  THAT  THE  FIRST  STRSBc /ADDRESS  KBRD  ASSEMBLED  k!TH  EACH 
MAP  REFERENCE  CBMTAINS  A  i  STR8BE  BIT,  AND  THAT  TB  ASSURE 
ALTERNATING  STR8BE  VALUES  AN  EVEN  NUMBER  8F  DATA  wBRO  PAIRS 
MUST  BE  SPECIFIED  IN  EACH  MAP  REFERENCE 


L 

ALTERNATING  STmBBE  BIT, 

AND  SIGNAL 

ADDRESS) 

r 

• 
• 

• 
• 
# 

REFERENCED  Bv  . 

MAP        Al,dl,A2,B?... 

•.A8N,BaN 

GENERAT 
W8RD  1 
ulSRD  2 

W8RD  3 
kBRO  4 

CNAr.E 

PR8C 

DB 

SET 

SET 

DB 

SET 

UN 

SET 

SET 

08 

SET 

FIN 

DATA 

GEN.1, 
FIN 

PEND 

DEF 

DEF 
DEF 
DEF 

CEF 

DE> 

DEF 
DEF 
OEF 
DEF 
DEF 
DEF 
DEF 
DEF 

DEf 

DEF 

DEF 

DEF 

DEF 


NUM(AF)M»1 
AF ( ( I »*1 1 -1 > 

0 

Al*( (A»»»( J-l) )il )««(*"JI 

AF( !••! I 

0 

5 

Bl*(  IB»»-(J-D  )5l  >«(5»J> 

X'002CC26E' 
6»4,5<l6      I51'D'A1,B1,0 


RTNA 
STRTA 
WHSBF,HSARR.APBMl(CPANeu,HBLDMAP,HB*,AB,C8,MB,Pt» 


W  I  NF 

ENDACTH 

ENDACTI 

ENDACTL. 
ENDb 
END51 
LEVL5A 
S«TN5 
MlNCTS 
MIN5F 
8PTIME 
8PTIN 

EI3 

Pl«P2.P3«P4 

PLENGTH 

oAl 

CPANIN 


8NE  MIN  FLAG  F8R  RTN, 
END.ACTI8N  F8R  RTN. 


1 
t 

3 

* 
5 

6 
7 
8 

9 

10 
11 
1? 
13 
1<> 
15 
16 
17 
18 
19 
SO 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
•  0 
M 
42 
43 

44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 


DEF 

<MCSP 

I    60 

DEF 

H8LD 

I     61 

DEF 

APB 

I    62 

DEF 

CPAN8UT 

L    63 

DEF 

MARR 

1    64 

DEF 

MARRl 

L    65 

DEF 

KCNT 

I    66 

DEF 

JC8UNT 

I    67 

DEF 

MINCYC15 

L    6B 

DEF 

ucnt 

L    69 

DEF 
DEF 

CPFLG 

I    70 

MMaST.hmaST,  Im 

»ST,KMAST,JMaST,wmaSTjEMAST,OMAST 

I    71 

DEF 

LMAST 

72 

DEF 

FMC 

73 

DEF 

MAST 

74 

DEF 

DUMAST 

1    75 

DEF 

FMMARK 

76 

DEF 

MP8KEY 

77 

DEF 

SECFl 

78 

REF 

BPSYSIF 

79 

REF 

MACRB 

80 

REF 

RTNA5 

/ 

81 

REF 

MASK 

.  / 

82 

REF 

BARR 

BUS  DATA  ARRAY 

83 

REF 

BARHBYTE 

BUS  DATA  ARRAY  BYTE  C8UMT 

84 

REF 

CRTBUT 

85 

REF 

»SBF 

86 

REF 

RTNA1 

LEVrL  2  EXEC 

I    87 

REF 

FMTBDC 

L    88 

REF 

RTC 

1    89 

REF 

DBP 

I    90 

REF 

NSECTM1 

I    91 

REF 

NUMSCT 

1    '2 

REF 

*HSF 

1    93 

REF 

*SF 

94 

IBPCO 


AFLAG 

BFLAG 

CFCAu 

OFl.AU 

7929BB 

6RDER7 

79290E 

ST*AE4 

P10 


PS  j 
PJ1 


REF 

REF 

REF 

REF 

REF 

REF 
REF 
REF 

RE^ 

CMA1E 

PWBC 

GE'J,8»5,  19,8,8,  16 
PENO 


FMSrsF 

FMSECF 

RTNB 

CRTFU 

CRTFL2 

FmFBPS 
SHTFL5  . 

RTNM,RTNJ,RTNK,RTNE 

SAVRU 


AF<1),0«BA(AF<?)i,aF(3)»0»AFI»I 


PSYS 
SYSTEM 
EQU 

EQU 

EQU 

EJU 

3ER       EUl 
929  EUi. 
VICE  EtiU 

ST*, RIO 
BBU.'.D 

Ibpcq 
ibpcd 

IBPCD 

ibpcd 

I9PCQ 

lopca 
iBPCa 

IBPCO 

let-cu 

ISVCD 

IBPCD 
I8PC0 

IbpCO 

I6PC0 

IBPCO 

IBPCO 

IBPCO 

IBPCJ 

IBPCD 

IBFCO 
IBP.CD 

IBPCO 

I«PCQ 

IBPCO 

IBPCO 

IBPCO 
IBPCD 

IBPCO 

IBPCO 
IBPCO 

IBPCO 

IBFCO 

IBPCO 

I8PCU 

IBPCO 
IBPCO 


1 
UTCSREG 

Xi80' 

X'80' 

Xi80' 

A'OO' 

X'03' 
X'nSOOOOOO' 


79290RDE 
7929BRDE 
7929BR0E 
7929BP.DE 
79298RDE 
79299RDE 
79c9BRDE 
7929BW  IE 
79298RDE 
79293R0E 
79299R0E 
7929BR0E 
79293R0E 
79299RDE 
7929BR0E 
7929BW0E 
7929BR0E 
79?9B«0F 
7929BP0E 
79293R0E 

7929BRDER 
79290R0E 
7929BRDE 
7929B»DE 
79298RDE 
79293RDE 

79238R0ER 
79298RDE 
79299RDE 

79299RDER 
79299RQE 
7929BRDE 
79298KCE 
79298«0E 
79299RJE 

79299R0EP 


,8ARR,BFLAG,BARRBYTE 
iPl»AFLAQ,PlBYTE 

MAWR.DFLAG,MaRR8YTE 
8ARR,8FLAS, 8ARRBYTE 
PIiAFLAU.PjByTE 
,  HSAKB,CFLAC.,hSARRBYTE 
aPBP^CFLACaPBBYTE 
Cpa\bu.CFLAS,CPABYTE 

• MA«R,DFLA5,1ABPBYTE 
dARR.BFLAG, BaBRBYTE 
■P?,aflaS,P28yTE 

HAHR,DFLAG,MaRR8YTE 

BARR,BFLAG,a*RRflYTE 

Pp.AFLAS.PgBYTE 

MSARR,CFLAt>,HS»RBBYTE 

APB"i,CFlAC),aPBBYTE 

CP«\ru»CFLau,CPABYTE 

MARH,DFIAG,MaRBBYTE 
9a><»,8FLA5#8aRR3yTE 
P3,AfLA(j,P33yTE 

'ARWjDFLAGiMARRBVTE 
BARR,BFLAG,BaRPBYTE 
P3< AFL»0,P3BvTE 
hSARP.CFLAChSARKBYTE 
AP8M,,CFLAli,  AP98YTE 
CPAN9U,CFUAU,CD»BYTE 

IARW,DFLAG,MARRRYTE 
BARR, BFLAS, BaRRBYTE 
P»«AFLAG,P»ByTE 

IARK,DFLAO,MARRBYTE 
8ARR,BFLAG,BaRRBYTE 
P<h  AFLA0,P»8vTE 
HSARR,CFLA(j,hSaRRBYTE 
APBfi,CFLAO,»PBBYTE 
CP«*9U,CFLAa(CPABYTE 

IARR,0FLA6,«ARRBYTE 


BBunD  8 

PLlSI  R£S  J 

•  VALL£  VAlOE  START    ADDRESSES 

•  BF    LrtP       9F    ortsF  BF    [/B    C8MMAND    LISTS 


0 

OARR, 

p?l 

MARR. 

Oat* 

P?j 

data 

C 

5 

1 
data 
Data 

BARR, 
P?l 

c 

P2, 

HSARR, 

MARR 

1 

Data 

LATA 

BARB, 
P30 

R3, 

MARR, 

1 

1 

'iARR, 

P3< 

HSARB, 

MARK 

DATA 

P31 

DATA 

0 

2 

D  a  T  A 
DAT,. 

UARR, 
PkO 
0 

P». 

MARR. 

bARR,    PA,     HSARB,    MARR. 


UARR, 

Pi' 

"IARR, 

JAIA 
DA*. 
1 

PI  J 
'-•ANR, 

Pl« 

HSARR, 

MARR 

DAI  A 

Pll 

»B 

»* 
97 
98 

99 

no 

101 
102 
103 

100 
105 
106 
107 
10S 
109 
110 
111 
112 
113 
11* 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12* 
125 
126 
127 
128 
129 
130 
131 
132 
133 
13» 
135 
136 
137 
138 
139 
1*0 
1M 
1*2 
1»3 

1*4 

1»S 
116 
i»7 
108 
149 
150 
151 
152 
153 
15* 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
17r- 
171 
172 
173 
17» 
175 
176 
177 
178 
179 
180 
181 
1«2 
183 


DATA 

0 

BbuM; 

6 

RTNAlCb 

RES 

20 

LEV2TC^ 

RES 

?e> 

LEVJTCa 

RES 

2fc 

LEVbTL^ 

RES 

?•> 

CRTTCfc 

RES 

?b 

(REG 

RES 

A 

B8U'0 

8 

IMPR9 

DAT. 

0»  1 

DATA 

IM60* 

L-ATA.l 

2»2'0. 

INHIBIT  1/9  INTERRUPT 


ISA 
185 
186 
187 
188 
1«9 
190 
191 
192 
193 
194 
195 


CL«1 

DATA 

0.0. INTER* 

3 

m 

CLKXPS3 

XPSU.3 

CL<1 

197 

INTXPSC 

xpsu»o 

INTPRtj 

198 

•   C8N\ 

:CT  JIRECTLY  TB  CBuMTrR.y  INTERRUPT 

199 

ARMSA 

GEN. 8.2* 

*»X'5A' 

200 

GEN.8,2* 

X'CS'.O 

201 

D»TA 

CL<XP3D 

202 

MT„»._ 

CL8CK 

233 

•   CONN 

;CT  3IRECTL 

v  TB  INT_RPR9CESS81  INTERRUPT 

20* 

ARMfe.. 

SEm.S.Zh 

«»X'6'/ 

205 

GEi4,8»2<. 

X'88',0 

206 

C*Ta 

I  -TXPSD 

207 

ARM6g 

GE,N,8,2t 

t.X'621 

238 

GEn,2.3:, 

2,RTnaTCB 

SAVF  16  REGS 

209 

D»Ta' 

RIKA 

210 

A3-163 

GEN-,.  ,2h 

»»X'«3' 

211 

GEn,2»3j 

2.LEV2TCB 

SAVE  16  REGS 

212 

3ATA 

HTNAa 

213 

**<"*» 

QEN.S.2* 

<t»  X'6*' 

21* 

GEN,2.3v 

2.LEV3TCB 

SAVE  16  REGS 

215 

DATA 

EI3 

216 

AR16B 

GE-*,8,2» 

%»X'68' 

L   217 

GEN,2»3u 

2.CRTTCB 

SAVF  16  REGS 

218 

DATA 

CLCRT 

I   219 

ARM6S 

GEn,8,2-> 

kt^'fi' 

I   220 

GEn,2»3o 

2,LEV5TCE 

I   221 

DATA 

TANSTP 

222 

OIS»3 

GEN.8,2* 

XM»',C 

223 

GE'J,12«2C 

A"7F8'»3 

22* 

JnT63« 

LPSu»3 

r-TPRe 

I   225 

INTER* 

ST„,Ri 

««FG 

SAVE  Rl 

1   226 

Ll»Rl 

252 

RESET  CL8CK 

1   227 

ST*,R_ 

CL8C< 

RESET  CL8CK 

228 

LIjRl 

X'AOOC 

TRIGGER  INT  PRSCESSBR 

,  AND  EXEC  1 

229 

*D*R1 

X'l7o2' 

TRIGGFR  INT.  6o»  62 

230 

LW.R1 

•  REG 

RESET  Rl 

L   231 

LPSD/3 

CLK1 

232 

STRTA 

RES 

0 

233 

CALU5 

ARM63 

C8NNFCT  ANR  ARM  InT. 

fcT 

23k 

CAL1.5 

ARM62 

CONNECT  ANR  ARM  INT. 

62 

235 

CAL1/5 

ARM63 

C8NNFCT  ANR  ARM  InT. 

63 

I   236 

CALl/5 

ARM6» 

C8NNECT  ANR  AR-  INT. 

6« 

237 

CAU1.5 

ARM68 

C8NNECT  ANR  ARM  ]\T, 

68 

238 

CALl/S 

ARM69 

ARM  LEVE.L  5  INTERRUPT 

239 

CALK5 

AKM5A 

CBNNECT  ANR  ARM  1\T. 

5A 

2*0 

•      3 

ISABLL  ARM 

WMETIC  TRAP 

ADDRESSES 

2M 

CALU8 

DIS»3 

2»2 

CALl.9 

1 

2»3 

RTNA 

RES 

0 

204 

MT»,1 

RTC 

INCREMENT  8EAi.T_lMtCl.8CK_ 

2*5 

LIi^ll 

A'Fi 

IF  (.  LSBS  BF  RTC  ARE  ZER6 

1 

L   2*6 

LS.Rll 

RTC 

DB  BNE-hALF  SEC8ND  L8GIC, 

I   2»7 

bhll 

STRDET 

else  start  input  bf  uata 

2«8 

LI.R1C 

1 

2»9 

STV#H1L 

a»SF 

SET  BNE.uALF  SEC9ND  FLAG 

3* 

253 

ST*,RlO 

a-SoF 

251 

LI.«11 

X-1F. 

IF  5  J-SfaS  8F  RTC  ARE  IZtf 

, 

252 

LS.Rll 

RTC 

00    8NE  SEC8N3  LOGIC,  ELSF 

253 

U.£Z 

STROET 

START  INPJT  BF  CATA 

25* 

Li.mc 

1 

255 

ST„,  ,u 

*SF 

SET  9NE  SECBND  FLAG  B . 

1   256 

ST..R1  .- 

-sbf 

257 

STa.RlO 

3ECF1 

258 

Lx.Klc 

MINCT5 

I   259 

AI.RlJ 

-1 

260 

CI.-lu 

0 

261 

Bb 

GIaRNO 

26? 

Ll.iUO 

1 

1   263 

ST.s.RIC 

1IN5F 

L   26k 

STA/Rir 

SRT\5 

I   265 

L*.* 

L"AST 

L   266 

ST»,1_ 

DuMAST,? 

1   267 

L»»M1 

8PTI1E 

L   268 

MI.R11 

tz 

I   269 

X»»RU 

Rll 

I   270 

,,b«rn[ 

RES 

0 

1   271 

ST„,R1G 

MINCT5 

I   272 

L"»2 

*"AST 

I   273 

L»»10 

Du»AST»2 

L   270 

CI. 10 

0 

I   275 

6EZ 

sei 

L   276 

Ll.2 

l 

I   277 

ST., 2 

MIN5F 

I   278 

381 

L»«2 

I1AST 

L   279 

L»»13 

DU-iAST.2 

I   280 

BEZ 

Go? 

L   281 

LI. 2 

1 

I   28? 

ST  .,2 

HlNSF 

1   283 

i32 

RES 

3 

I   28» 

L*»2 

M>1AST 

1   285 

L'll, 

3U-AST.2 

286 

CI,  10 

1 

1   287 

B\E 

38c  1 

I   288 

STa,1j 

M1N.F 

I   289 

.,921 

RES 
LIi»13 

1 

I   290 
I   291 

MT»»1 

MINCVC15 

I   292 

L '1,1.2 

•*• 32:0300 

3'          T8GJI.F  CPU  1  BIT  |N  PANEL 

293 

EBR.R2 

CPAN8UT 

TeJoLF  CPU  BITS  IN  CPAN9UT 

29l> 

ST.,,R2 

CPAN8UT 

an3  but  put 

I   295 

L«.-2 

M*AST 

StMEOULE  RTN,  M  EvERV 

1  SEC 

I   296 

LI, 11 

1 

1   297 

ST,.,  11 

UUMAST,R2 

L   298 

"T.,-! 

QCNT 

DECREMENT  RTN.  U  C9uS 

T 

299 

BNEZ 

GU3 

1   300 

Ll«Kl 

1 

ST„,Rl 

OumAST,2 

LI. 2 

1 

ST...  2 

MIK5F 

RES 

0 

hT*,-i 

KLNT 

•0/  SHUTD8WN  IN  RP8GRESS 


TEST  IF  1  MINUTE  INTF^VAL 


301 
30? 
303 
30* 
305 
306 
307 


HjZ 

OECliMIN 

N8,  TEST  15  MIN  FlAG 

308 

L*»»2 

K'-'AST 

SCHEDULE  RTN.  < 

309 

ST.*, 11 

JU1AST.2 

310 

ST.,, 11 

MINSF 

311 

ST., RIO 

CRTFLl 

UPDATE  CRT  1  DISPLAY 

312 

ST*, RIO 

C*HL2 

UPDaTF  CRT  2  DISPLAY 

313 

JEC1S* 

\  RES 

C 

31* 

("Td.-l 

JCBUNT 

DECREEMNT  6  SECBNJ  CBJNTER  FBR  RT 

315 

B32 

N8EVAL 

NBT  2ER8,  CONTINUE 

316 

L-..2 

J"AST 

4  SEC.  UP,  SCHEDULE  RTN.  J 

317 

st,.»ii 

DUMAST.2 

JIB 

jetv»u 

RES 

0 

319 

MTh.-l 

SVSTB     DECRE 

"ENT  STANDBY  hAIT  C8UNTS 

320 

Lw»2 

NU"SCT 

321 

MT.,-1 

SECSTB-1,2 

322 

BGR»2 

*-l 

323 

MTm-1 

FMC 

DECREME  M   !■-.  "fi.,i'l    i;,.  r[  . 

32* 

BGi 

STRDET 

IF  15  M]N  NBT  UP  START  INPUT 

325 

LI, RIO 

0 

326 

STw/RlO 

MP8KEV 

RTN.  H  SHBULD  08  ALL  PRINTING 

327 

stm.rio 

MINCTC15 

328 

L*»«2 

SHTFLG 

TEST  IF  SHUTDB^N 

329 

BNEZ 

OS* 

330 

L-/H.2 

HMAST 

GET  RTNH  BFFSET  IN  M»ST  TABLE 

331 

Ll.ll 

1 

332 

ST..U 

DuMAST,2 

333 

LI,; 

1 

330 

ST., 2 

m!n5F 

335 

as» 

RES 

0 

336 

U.«10 

900 

RESET  I'.. 

337 

ST-.Klo 

ffC 

(  900  •  15MIN.  •  60SEC/MIN.  ) 

338 

II.RIO 

1 

339 

ST.. RIO 

FMSVSF 

SET  FIFTEEN  MINUTE  SYSTEM  FLAG  8N 

3*0 

ST., Rio 

FMSEC> 

SET  FIFTEEN  MINUTE  SECTION  FLAG  8N 

1   341 

ST.. RIO 

FMMAR. 

3*2 

A..R10 

FMTBDC 

INCREMENT  15  MIN.  TIME  8F  DAY  CBUNTFR 

3»3 

CI, RIO 

95 

3»» 

BLE 

•  *2 

I   3*5 

L1.R10 

0 

306 

ST. /RIO 

FMT80C 

I   3*7 

STRQET 

RES 

0  - 

STAR 

T  INPUT  8F  DATA 

L   3»8 

MT.,1S 

DBP 

DFCR 

EMENT  DETECTBR  BUFFER  POINTED 

3«9 

BSE 

F|NDL 

DBP 

•  -1 

I   350 

LI.RU 

3 

1   351 

STw.Rll 

DBP 

DBP  •  3 

I   352 

FINBL 

RES 

0 

1   353 

L..R1 

DBP  ' 

START1N&  ADDRESS  BF 

I   35* 

SLS/R1 

1 

1/8  CBMMAND  LIST  • 

I   355 

A*,Ri 

khSF 

2«DBP  ♦  WHSF  «•••  INDICE 

L   356 

SLS,R1 

1 

I   357 

L*,RO 

PLIST.R1 

I   358 

L*»R11 

«HSF 

I   359 

Ml.kll 

6 

L   360 

A..R11 

STWAE* 

L   361 

Ata.RH 

RO 

SET  UP  T8  ST9RE  IN  MARR 

L   362 

L..R10 

HBLDMAP 

I   363 

AI.R10 

20 

L   360 

CIiRlO 

LASTMAP 

TEST  IF  END  8F  BUFFER 

L   365 

BL 

*»2 

L   366 

LI. MO 

MARK 

RESET  TB  BUFFER  START 

L   367 

ST.»R10 

HBLDMAP 

L   368 

SLS.R10 

2 

L   369 

AWiKlU 

•0RDER7929 

370 

EXu 

«U 

PERFBRM  ST8RE  MARR 

371 

SLS.RC 

.1 

372 

TIb.O 

7929^EVICE 

TEST  INPuT 

373 

BC^.12 

oesiB 

HALT  INPUT 

37* 

H1B.0 

7929jEvICE 

IF  BUSY,  ETC- 

375 

UBSIB 

R£b 

0 

376 

S  1 3  <  0 

79290EVICE 

377 

sbrtne, 

RES 

0 

378 

BA,_«R0 

RTNfl 

OB  DETECTBs  DATA  INTERPRET  AT  IBS 

379 

• 

(RTN 

Bl  AND  e^CE  PER  VEHICLE  (RTN  C)         I 

3*0 

Lw.RlO 

»HSF 

ChEC<  IF 

381 

CI, RIO 

Z 

382 

CI,H10 

0 

HALF  SEC. 

383 

BE 

ABVEK 

FLAG  SET 

38* 

LI, RIO 

3 

385 

ST.,R1;. 

*hSf 

RESET (.0)  HALF  SEC  FLAG 

386 

L«««io 

LEVL5A 

387 

BNE* 

ABVERl 

388 

A6VEKJ 

RES 

0 

389 

LKiRlO 

M1N5F 

390 

'ClM»(iO 

0 

391 

BE 

ABVERl 

392 

ABVEH3 

RES 

0 

393 

LI»R10 

XM8»0' 

39l> 

*D»1J 

X'l702' 

395 

B 

ABVER 

396 

ABVERl 

RES 

0 

397 

• 

398 

LI, 10 

x'laoo1 

TRIGGER  LEVELS  2  AND  3 

399 

*D,10 

X'1702' 

TRIGGER  LEVELS  2  ANI?  3 

100 

ABVER 

RES 

C 

•  01 

S»e»,9 

1 

002 

PAGE 

EVJACTH 

RES 

3 

L».*2 

h"ast 

B 

ENDACT 

E.NJACTI 

RES 

0 

L*«R2 

IKAST 

b 

ENDACT 

EMJACTk 

RES 

C 

L«.r«2 

W^AST 

ENlMCT 

RES 
LI. 10 

9 
1 

STv.,10 

DUMAST.2 

ST., 10 

MIN5F 

B 

•mi 

REtE«E 

<CE' 

SET  RTNH  8FFSET  I".  MAST  TABLE 


SET  RTNw  8FFSET  !  \  1AST  TABLE 


I/B  c'lD  ACTlBN 


R&M  REF, 


E»'      ENJaCTh  W9UL0  BE  THE  END.ACTI9N  ADDRESS  APPEARING  IN 
The  Se^ICE  USER'S  FPT.  RETURN  TB  C»MPLETE  THE  1/9  INTERRUPT 
kF.S°t)NSE  HANDLING  TASK  IS  VIA  REGISTER  11. 


Mil 

PAjE 


El  J        RES 

L68PEI3A   RES 

LI. 2 


END. ACTION  IS  PERFUMED  *»ITH  THf  1/6  INTERRUPT  HIGH 
AS  PART  6F  THf  l/B  INTfRRUPT  RESP8NSE  TASK. 


EXTERNAL  INTERRUPT  3  L8GIC 


•  03 

•  3* 

•  35 

•  36 

•  37 
»08 

•  39 
*10 
♦11 

•  12 
"13 
*1» 

•  15 

•  16 
*17 
»18 
"19 
•20 
•21 

•  2? 

•  23 

•  ?• 

•  25 

•  26 

•  27 

•  28 

•  29 

•  30 
♦31 


LEV2NS 

SAV«l6 


RE 
L* 

CI. 

BNE 
L« 
LI 
ST 
6 

SIR 
S 

LC 
ST 
L« 
LI 
Ba 
LC 
LM 
B 

RE 
Ca 

RES 

Lw 

LI 

BAL 

CAL 
LI 
L* 
BA 
CA 

RE 
L»» 

CI 
B'. 
LI 
ST» 
LI 

L'« 
BA 
RE 

CA 

RE 


10 

,10 
.13 
-»13 

.Kg 

1 

M»0 
RO 
Rl* 

L.R15 

I 


S 
Ll.9 

K3 

hl» 

.R15 

1.9 

»R1» 

,RQ 

L#S15 

Ll.9 

S 

K13 

.RIO 

£ 
RIO 
RIO 
Rl* 
R3 

L  <R15 

S 

ul.9 

S 


DU"IA3T»».2 
1 
*SERV 

'■'AST.*.  2 

0 

DU1AST««,2 

F9RC 
L89PEI3B 

EXITEI3 

0 

SAVR16 

SAVRO 

0 

•RIO 

0 

SAVR16 

LB8PEI3A 

0 

1 
0 

SAVRO 
0 

RTNA5 
1 

0 

SAVRo 

CRT8UT 

1 

0 
SECF1 

1 

LEV2N6 

SELF1 
3 

SAVRC 
RTNA1 
0 
1 
16 


KEEP  GBING 
ALL  ACTIVITY  9FF  AT  LE»ST  B\|CE  THRU 


START  SCAN  FR8M  HIGHEST  PRIORITY 


P1EMD 
oinrlir 

PLtN-JT- 


iICLE    DETECT8R 
BBuNO  8 

RES  0 

G£n»20»*»*»* 
SE\«20«,«*«» 
GEN»20.*»«»* 
GE  <»20.*«*»» 
GEk»20.»«*«» 
GE*»ao«*«*»* 
SEN/BO. *»»»* 
UE'wSO.*.*.* 
GE\»20.».*.* 
GEn>20.*<»«4 
GEn«20.*»»»* 
GE.\»20.».»»« 
GE'n.20'»'*'« 
GE!>i»20.».*»* 
GEn.20.*.*.* 
GEn.20.».*.» 
GEN.20.».*#« 
GE  J.  20. •<•»•» 
GEN.20. •'•»•« 
E3o  « 

Eju  •• 


INPUT  ARRAY  1 


32 
32 
32 
32 
32 
3? 
32 
1? 
32 
32 
32 
32 
32 
32 
32 
32 

.32 

32 

32 


»- 


(».P1 
Pi 


Xi HOC • 
X'SOCi 
X'HOCl 
X'80C 

xmoo 

X'SOCI 
XiHOCi 
X'BOC 
XiHOCi 
XiHOC 
X'80C' 
X'HOC 
X'80C 
X'HOC 
X'SOC' 
X'BOC • 
XiHOCi 
l'80C'»Xi» 
CSOCX'S 

) 


X'l 
X'O 
X'l 
X'O 
X'l 
X'O 
x'l 
X'O 
Xll 

x'o 

X'l 

x'O 

X'l 
Xf0 
X'l 

X'2 
xi3'.» 

.X'O' . 
.X'O', 


»X'F 
.X'F 
.X'F 


.X'F 
.X'F 
.XiF 
.XiF 
.XiF 
.XiF 
.X'F 


.XIF 


.XiFFFFFFFF 
.AiFFFFFFFF 
.XiFFFFFFFF 
.XiFFFFFFFF 
.XiFFFFFFFF 
.X'FFFFFFFF 
.XiFFFFFFFF 
.XiFFFFFFFF 
.X'FFFFFFFF 
.XiFFFFFFFF 
.XiFFFFFFFF 
.XiFFFFFFFF 
.XIFFFFFFFF 
.X'FFFFFFFF 
.XIFFFFFFFF 
.X'FFFFFFFF 
.XiFFFFFFFF 

FFFFFFFFi 

FFFFFFFFi 


'ICLE    0ETELT8N 
U9i,\D  8 

RES  0 


INPUT  ARRAY  p 


•32 

•  33 

•  3» 
•35 

•  36 

•  37 

•  38 
•39 

•  •0 
»*1 

•  •2 

•  ♦3 

•  »• 

•  »S 

•  •6 

•  •7 

•  •8 

•  »9 

•  50 

•  51 

•  52 

•  53 

•  5k 

•  55 

•  56 

•  57 

•  58 

•  59 

•  60 

•  61 
♦62 

•  63 

•  6» 

•  65 

•  66 

•  67 

•  68 

•  69 

•  70 

•  71 

•  72 
♦73 
*7» 

•  75 

•  76 

•  77 

•  78 

•  79 

•  80 

•  81 

•  82 

•  83 

•  8» 

•  85 

•  86 

•  87 

•  88 

•  89 

•  90 

•  91 

•  9? 

•  93 

•  9* 

•  95 

•  96 

•  97 

•  98 

•  99 
530 
501 
50? 
303 
SO* 


GEN»2o»4, 4.4.32 

Xt80C" 

GEN.20'4. 4.4.32 

X'BOC 

Of.    .20.4.4.4.32 

X'BOC 

GE\.20»4.4»4,32 

X'BOC 

GEIW20.4.4.4.32 

X'BOC 

GEN.20.4.4.4.32 

X'BOC 

GEw20»4.4.4.32 

X'80C 

GE\»20«4. 4.4.32 

X'BOC 

GE*<. 20.4. 4.4.32 

X'BOC1 

GE;„.20»4,4.4.32 

X'SOC 

GE    .20«4. 4.4.32 

X'BOr' 

GEN.2'J'4.4.4»32 

X'BOC 

GEw20'4.4,4,32 

X'BOC 

GFs>20>4.4.4«32 

X'BOC 

GE«<20.4,4.4»32 

X'BOC 

GEv.20.4.4.4.32 

X'BOC 

GEtw20.4,4,4»32 

X'BOC 

GEn»2j»4.4,4,32 

X 

aoc«xi» 

GE'g.20,4,4,4,32 

X 

80C'«X'S 

P2EN0 

Eju                  • 

PjBYTr 

• 

Eau                  4.H-P2 

•                    V  t 

-lICLE    OETEtTBK    INPUT 

ARRAY    3 

BBuMJ             a 

Pi 

RES                  0 

GE;.»20,4,4.4.32 

X'BOC 

GEv.20.4.4.4.32 

X'BOC 

GE  w20»4,4.4.32 

X'BOC 

GE  *»20«4»4»4«32 

X'BOC 

GEn»20<'*'4»4.32 

X'BOC 

GEu»2C»4,4.4»32 

X'BOC 

GFs. 20.4. 4, 4.32 

X'BOC 

GEn.20»4i4.4.32 

X'BOC 

Gt\«2Q. 4, 4.4.32 

X'80C 

GE-., 20.4, 4, 4.32 

X'BOC 

GF.  .,20.4,4.4.32 

X'SCC 

GEr,.2U.4,4.4»32 

X'BOC* 

GE  ,»20«4. 4.4.32 

X'BOC 

GE    .20.4.4.4.32 

X'BOC' 

GE-., 20.4. 4.4. 32 

X'BCC 

Gls.?0«».4.4»32 

X'BOC 

GE  >.20>4.4...,3S 

X'BOC 

GE  ,,  20.  4,4,4,  J2 

X 

80C«X'» 

GE',,20,  ««.,»,  32 

» 

80C»X'5 

PjEN*/ 

Eiu                 » 

PjOYTc 

Ei„                  4.<».F 

3 

X'l'/X'T 

,X'F 

.X'FFFFFFFFl 

x'o'/x'S 

,X'F 

.X'FFFFFFFF' 

X'l'.x'f 

.X'F 

.X'FFFFFFFF' 

x'0'»x'° 

,X'F 

.X'FFFFFFFFl 

X'l'»x'9 

»X'F 

.X'FFFFFFFFl 

X'O'.X'A 

.X'F 

.X'FFFFFFFFl 

X'1'»X'» 

.X'F 

.X'FFFFFFFFl 

X'O'/x'B 

.X'F 

.XiFFFFFFFFi 

X'1'»X'9 

.X'F 

.XiFFFFFFFFi 

X'O'.x'C 

.X'F 

.X'FFFFFFFFl 

x'l'.x'C 

.X'F 

.X'FFFFFFFF' 

X'O'JX'D 

.X'F 

.X'FFFFFFFFl 

X'l'.X'D 

.X'F 

.XiFFFFFFFFi 

X'O'/X'E 

.X'F 

.X'FFFFFFFF' 

X'l'.X'E 

.X'F 

.X'FFFFFFFF' 

x'2'.x'C 

.X'F 

.X'FFFFFFFFl 

X'3'»X'0 

•  X'F 

.XiFFFFFFFFi 

«X'0' ,X'Fi, X'FFFFFFFF' 

.X'O'.X'F'.X'FFFFFFFF' 

,X'F'. X'FFFFFFFFl 
iX'F', X'FFFFFFFF' 
'FFFFFFFF' 
'FFFFFFFFi 
FFFFFFFF' 
■FFFFFFFFi 
'FFFFFFFFi 
FFFFFFFFi 
FFFFFFFFi 
FFFFFFFFi 
FFFFFFFFi 
FFFFFFFFi 
FFFFFf FFi 
FFFFFFFFi 
FFFFFFFFi 
FFFFFFFFi 
FFFFFFFFi 
.XiFFFFFFFFi 
'.XiFFFFFFFFi 


,X'f 
X'F 


it-IICLt    0EHLT8R    INPUT    ARRAY    % 

bV-Au      i 


905 
506 
507 
508 
509 
510 
511 
512 
513 
614 
515 
516 
517 
518 
519 
520 
521 
522 
523 
624 
525 
526 
b?7 
52! 
529 
530 
531 
532 
533 
534 
535 
536 
537 
638 
539 
540 
5»1 
5»2 
5*3 
544 
545 
506 
547 
5k8 
549 
550 
551 
562 
653 
554 
555 


P4fcNU 
P4BYTC 
dL*29 

SYSTB 

SEtSTB 

BL*2» 


•     PAN* 

PI» 

CP*NlN 


RaDI 


«E5 

BE\.20»»»».4 
GE  vi20i  <•«*«» 
GE  «<iO. *'.*»» 
GE  -..20.4.4.4 
GE'.»20<4«4»4 
GEN. 20.*. I.* 
GEN. 20. 4.4.4 
3E\.2G.4.4,4 
6£n»20»»»««» 
SE\»20»»»<M4 
GEv»20»4,4.4 
SEs»20«*.4»*, 
GE".,20«4,4«4 
GEn»20«4,4»4 
GEn,20»*»*»* 
GEn»20<4.4.4 
GEN.20.4.4,4 
GEn.20.4,4,4, 
GEn,2u, 4,4,4, 
EQb        • 
E3u        »• 
DSECT      0 
BBUvO       4 
UATA       0 
DATA       0. 
OSECT 
BBuND 
PES 
*ASE  3RELN  RET 
RES        0 
GEN«20.4,4»4 
GEm, 20,4. 4.4 
GEv,20,4,4,4 
GE  ...20.*.*.* 
GEN, 20,4,4, 4, 
GEn, 20,4,4, 4, 
GEN, 20.4,4, », 
L  INPUT  DATA 
RES        0 
EOu       PI 
GEN. 20,4,4,4 
GEN, 20.4. »»4 
GEn»20.4»4«* 
e.CBNTRBLLEO 
RES        0 
GEn, 20.4.4, 4. 
SIGNAL  BUTPU 
RES        0 
GEn»20»4»4»4 
GEN.20.4,4,4 


'32 
.32 
•  32 

.32 

.32 

.32 

.32 

.32 

.32 

.32 

.32 

.32 

.32 

.32 

.32 

.32 

.32 

32 

32 


X 
'80C 
•80C 


8 


BOC 
8CC 

BCC 

»cc 

80C 

b:c 
»oc 

BOC 

soc 

80C 

BOC 

BOC 

BOC 

BOC 

BOC 

BOC 

»X>» 

»xis 


a'FFFFFFFFi 
X'FFFFFFFF' 
X'FFFFFFFF' 
X'FFFFFFFFl 
XiFFFFFFFFi 
XiFFFFFFFFi 
XiFFFFFFFFi 
XiFFFFFFFFi 
XiFFFFFFFFi 
X'FFFFFFFFl 
X'FFFFFFFF' 
XiFFFFFFFFi 
XiFFFFFFFFi 
X'FFFFFFFFl 
XiFFFFFFFFi 
XiFFFFFFFFi 
XiFFFFFFFFi 

.XiFFFFFFFFi 

.X'FFFFFFFF' 


HALF.SECBND  ARRAY 


32 
.32 
.32 
.32 
32 
32 
32 
ARRAY 


X'80C'< 

X'BOC' 

X'BOC' 

X'80C 

•80C.XI5' 

•80C.X'*1 

•80C'.xi5' 


X'2'. 
X'3'. 
X'2', 
X'3'. 
»X'2' 
.X'3' 
.X'3' 


'1 '.X'F', XiFFFFFFFFi 
•li/X'F'. X'FFFFFFFFl 
i2'»X'Fi, XiFFFFFFFFi 
•2*. X'Fi, XiFFFFFFFFi 
X'F', X'FFFFFFFF' 
X'F', XiFFFFFFFFi 
X'F', X'FFFFFFFF' 


**1 

,32  X'BOC, 
,32  X'SOC 
.32      X'BOC. 

M8NIT8R  SIGNAL 


X'2 '.X'3', X'F '.X'FFFFFFFF l 
X'3'«x'3'.X'F',X' FFFFFFFF ' 
X'2 ', X'*', X'F i, X'FFFFFFFF i 

ARRAY 


32     X'SOC' 
T  ARRAY 


X'3',x' 


.X'F'.X'FFFFOOOO' 


.32 
,32 


X'OOC, 

x'aoc, 


XI2'.X'7',X'F',0 
X'2',X'8',X'F',0 


556 
557 
558 
559 
560 
561 
562 
5*3 
56k 
666 
566 
567 
568 
569 
57fl 
571 
572 
573 
67» 
575 
576 
577 
578 
579 
580 
581 
582 
5"3 
584 
585 
586 
587 
588 
589 
590 
591 
592 
693 
59* 
595 
596 
597 
»98 
599 
600 
601 
602 
603 
604 
605 
606) 


nSARRBV 
•     AD 

APBM1 


«N 

SEN 
GENj 

GEn, 

gen, 

TE  EQU 
vance 
RES 
GEN 
SEN 
GEN 


20.* 

20/4, 

20,4, 

PULSE 

20/* 
20 

.•20 


,4,4.32 
,4,4,32 
.4.4,32 


CPANUL 
QPAMOLT 


CPAUY1 J 

PHI 

<M(.SP 

mBLD 
4PS 


GEN 
GEN. 
GEN 
GE  . 

EQ 
g»L  8; 

RES 

EQu 
DAT* 

DATA 
EiL 

EQu 
EQu 

EOu 
EUu 
E'Ju 


.20,* 
20.4, 
20.4. 
20.4. 

TPUT 


.4.4.32      X'00C'«X'2'>x'9'.X'F'.O 

,4,4,35      X'OOCi/X'J'nHliK'F'iO 
4.  4,  32   X  i  OOC  '.X.4'»X'5',X'Fi,X'0' 
4,4,32   x'OOC'.x.t'jX't'.X'Fi.x'o1 
4,4,32   x>00C'»X'4',x'7',x'F",X'O' 
♦•(••HSARR) 
8UTPUT  ARRAY 
0 

X'30C*»X'2'»x'Sl.X'FI,0 
X'00C'»X'2',x'e'.X'Fi.0 

xigoC'X'^'.x'O'.x'FifO 

,4,4,32     x'00e'.X'2',x'E'.X'F',0 

4,4,32  x'00C'.x<4'»X'Ai , x'F'»x'0' 

4,4,32  x'OOCX^'.x'B'.X'Fi.x'O' 

4.4, 32  x'OOC'»Xi»'<  x«C',X'Fi,x'0' 

".•(».aps«i  i 

CAT*  ARRAY 


CPANBOl 
X'OO0jC25C' 

x'020j0030' 

»<((>CPANeu) 

AGH«i 
PlAtl 

RCM*1 

«P61i«i 


LABEL  USED  BY  ST 
LABEL  USED  8y  RTN  A 


LABEL  USED  BY  RTNS. 
LABEL  USED  BY  RTNS. 


P,R,T,V,A, 
P.T 


».AP  SIGNAL  8UTPUT  ARRAY 
B8UN0      6 
■E3u        » 
COMMUNICATIONS  AND  [NTERSECTIBN  SWITCHES 


MAP 


01,02.00,02 


LEGEND  DISPLAY 


C9»Oj«10.0G.11.00il2«On 


;i.oo«c2»oo«o3,oo»o»»oo 


05,00  06,00,37,  00/08.00 


13,00,14,00 


TMREShBLn  DIGITS 

MAP  33«01»02'01»01«0l'00«01 

HAP  v7.01«06>Cl'05.3l.3<t«01 

MAP  11»01>10»01.09.01'08.01 

HAP  15«01.1<>»C1.13,31.12.01 


ENABLE/INHIBIT 

COMMUNICATIONS 
ENABLE/DISABLE 

INTERSECTION  SIGNALS 


1  (CONTROLLER  STATUS) 

2  (CIC  STATUS) 

3  (BPS  C8NTR8LLER  STATUS) 

4  (CBNTR8LLERS  FAILED) 

5  OCCUPANCY) 

6  (VOLUME) 

7  (SPEED) 

8  (QUEUE) 

9  (ST9PS) 

10  (DELAY) 

11  (PASSENGER  GAIN) 

12  (BUSES  HELPED) 

13  (SURV  E..UIP  FAILED) 

14  (BPS  SURV  E3UIP  FAILED) 


1000S  DIGIT  (8-4-7-l.BITSi 
100S  DIGIT  (8.4-2-1  BITS) 
10S  DIGIT  (8-4-2-1  BITS) 
IS  DIGIT  (g.».2.,  BITS) 


AQOfD  TO  TuhM  9N  A  PHASE  GREEN  LETTERS  OF  MAP 
MAP       15.00. 0.0.0.0.0 
The  F8LL8w1\G  DUM"Y  ENTRIES  PR9VIDE  F9R  EXPA\Sl8N  T6 
its  C8NTR8LS 

D91       3 
MAP        j0»0J.U0»00»00»3C,  00,00 

Cj  .T-^lLeR  aRROaS  (03U  A»D  E«EN  SIGNAL  PAIR  PER  aSDRfSS) 

i*f      '.o»o;:«:i«o:>..2.o5.o3«05  •  i  •  8 


*07 
608 
609 
610 
611 
612 
613 
bit 
61S 
616 
617 
618 
619 
620 
621 
622 
623 
62* 
625 
6?6 
627 
628 
6?9 
630 
631 
63? 
633 
634 
635 
636 
637 
6JP 
639 

6»r 

641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
65? 
653 
654 
655 
656 
657 
65S 
659 
660 
661 
66? 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 


MAI-  04»02«04, 05,05,02.06.0? 

1AP  .7.02, 08>02»05, 05,39,:? 

MAf  j6<05»07.05» J«.05/10<0? 

M4F  ll'0?'l?»02»13,u?»l*..3? 

MAP  15,0<?.09,C5<  IO.O'saII.OS 

ii«F  1?.05'13*05,00»03»1»«05 

MAP  15«05»G0.G6»C'l.06.02.  J6 

MAP  GI»03»02.03»"3. 06. 03.03 

MAP  34.06.^4, 03.05. 06»C0'00   . 

MAP  07»06«08»06. 1.9,06. 10*06 

Map  11.06.C5.C3.1?, 06.13.06 

MAP  14.C6»15.06.30>0',«01.07   • 

MAP  02»0'.uC«00.04»37».',5,07   • 

MAP  06,07«07«07.^  ;,03'08»03 

MAP  06,03.09,03 


THfc  FOLLOWING  DUM-Y  ENTRIES  PR9V1DF  F8R  EXPANSI8N  TO 
2j2  CONTROLLERS  / 


9  ■ 

16 

17 

-  ?4 

25 

•  32 

^ 

-  40 

41 

-  48 

49 

-  56 

57 

•  64 

65 

-  72 

73- 

S3 

81 

•  88 

89 

•  96 

97. 

104 

05- 

11? 

11 

•  120 

121 

•  124 

MAP 
D81 

MAP 


OC»00,CO,00 

13 

00,00.00' 00, 39. 00, 00, On 


LINK  AR«8»S  1900  AND  EVEN  PAIR  P£R  ADDRESS) 

1 


MAP 
MAP 

map 

MAP 


03'17»01'17» 02,  17/09.16  .  1  •  8 

00' I6.01'16.02.16.08.l6  t  9  •  16 

11. 16.03.16.04, 16, 10. U  .17-24 

12,16.14,10,05. 16,06.16  .  2S  •  32 


680 
681 
68? 
6>i3 
684 
6»5 
686 
687 
688 
689 
690 
691 
69? 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
7ot 


MAP 

13*16 

MAP 

03.17 

MAP 

06.17 

MAP 

07»1? 

MAP 

0*«19 

MAP 

12.19 

MAP 

on»2o 

MAP 

03»2u 

MAP 

06»20 

MAP 

07,2c 

MAP 

0C«21 

MAP 

00.00. 

MAP 

i».2i 

MAP 

03.  22 

map 

09.22 

MAP 

Vl»22 

MAP 

09.23 

MAP 

08.23 

MAP 

10.23 

MAP 

68.18 

MAP 

03*18 

MAP 

05.18 

MAP 

15«1<J 

MAP 

Cl»19 

MAP 

12.23 

MAP 

13.23.1 

MAP 

0*»21.0 

MAP 

10'21 

MAP 

09.21.1 

.07. 16. 15, 16.0*. 17 

33  • 

»0 

.09.17.10.17.05.17 

*1  * 

«8 

.  08.  17.  12,  i7»  13,  17 

»9  - 

56 

.11.17.03.19.05.19 

57  • 

6* 

.06.19,07,19,08.19 

65  • 

72 

*11<19»13, 19. 15.19 

73  • 

80 

«Cl<20»32«20.09.2r> 

81  • 

88 

«G8.20»10«20»0*«2o 

89  • 

96 

.05. 20. 13. 20. 12. 2o 

97  • 

10* 

,11. 20. 15, 20.1*. 2c 

105  < 

112 

.01.21.02,21.03.21 

113 

•  120 

07.21.12.21.15.21 

121 

•  128 

.01.22.08,22.02.2? 

129 

•  136 

.IO'22'O*. 22.05.2? 

137 

■  1** 

.12.22.06,22.07.2? 

1*5  - 

■  152 

.13.22.1*, 22. 15. 2? 

153  . 

160 

.00.23.02.23.01.23 

161  ' 

168 

•11. 23.03, 23.0*. 23 

169  ■ 

176 

'15. 17. 1*. 17. 00.18 

177  . 

18* 

.01.18.02.18.10.18 

185  • 

192 

»0*»18«09, 18. 11.18 

193  ■ 

200 

*12. 18.1*. IB. 13.18 

201  ' 

208. 

.06*18.07,18.00.19 

209  ' 

216 

.02'19.09.19»10«19 

217  • 

-  22* 

.05.23.06,23.07,23 

225  • 

>  232 

*, 19. 14.23.00. 00   . 

233-2*0 

8.21.00.00.05.21   . 

2*1«2*S 

.06.21.00.22.15.23 

2*9  ■  256 

1.21.13.21,00.00   . 

257«26* 

THE  FeLLSwING  DUMMY  ENTRIES  PR6VIDE  F6R  EXPANSlBN  T8 
512  LINKS 


D81 

MAP 

LIST 

LASTMAP      eou 
KASftiYTE    ECo 

E".., 


MAKX1 

MSLDlAP 


DATA 

beu-.D 

DATA 

OAT* 
'INCYC.13     DATA 


jC»l^ 


,-SBF 
CLICK 
.'INF 
INCT] 

T  AS 
■ib» 

»h 
CU 
ib 

PS 

1AST 


*TNL 
SECFl 

8L"* 


FML 

FMMA^K 

OUMAbT 

lPf<£Y 

CP^J 
MMAST 
jMAST 
K-.AST 
E  1AST 
-,'IAST 
:,»AST 
J.1AST 
IMAST 

l'iasi 

ul'LbA 

sx  r  Mb 

Ends; 
:l  'LT5 
.!*:>* 
SjPtI   lc 
rtP!  IN 


DATA 
DATA 
DATA 

DATA 

Data 
EUJ 
EDU 
EQu 
EGJ 
tQu 
DATA 
DATA    o, 

Data 

RES 

R£S 

DSECT 

PES 

DATA 

DSECT 

DATA 

DATA 
DATA 
DATA 
DATA 

Data 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAT- 
DATA 

DATA 
DSECT 
DATA 
DATA 
DATA 
DATA 
DAT* 
DAT« 

Data 
DATA 
END 


31 

00. 00. 00. 00. DO, 00. 00. 00 

1 

»-21 
1».2.<, 

~ARR*1 

-APR 


15 


"1 

0 

260 

0 
60 

ENDACTrt,ENDACTI,ENDACTi. 

mS»RRBYTE/» 

AP6UYT2/* 

CPAbYTE/* 

MARRBYTE/l 

P1BYTE/* 

RTKn,RTNj,RTN*.»GTNE 
,  1 
RTNL 
t 
1 

0 

1152 

2b» 

■3 

900 

0 
0,0,3,0,0.0.0.0.0 
1.2.3,4. 5.6.7, 8. 9 


15SEC  CPJNTEH  F8*  RTNK 


70» 
710 
711 
712 
713 
71* 
715 
716 
717 
718 
719 
720 
721 
722 
723 
72* 
725 
726 
727 
728 
729 
730 
731 
732 
733 
73* 
735 
736 
737 
738 
739 
7*0 
7*1 
7*2 
7*3 
7  44 
7*5 
7*6 
7*7 
7*8 
7»9 
750 
751 
752 
753 
75* 
755 
756 
757 
758 
759 
7*C 
761 
762 
763 
76* 
765 
766 
767 
768 
769 
770 
771 
772 
773 
77* 
775 
776 
777 
778 
779 
780 
781 
782 
783 
78* 
785 
786 
787 
7B8 
789 
790 
791 
792 
793 
791, 
795 
796 
797 


2.6.2    SUBROUTINE  A5 


WuflMf. 


le<el 


•n  Mr 

LEVEL     5    EXEC 

SJ5fi9jTl;E    *TV5 

C^M!".9\ 

/iL<t^E/   lEvL5A»S!»T'.5,E->'C5»E.ND51 

IMEW 

S<?TM5,EA25.t  j05l»9HTlMt,SPTK 

C^fS-l 

/t>L<6    /       F-iC                         ,       fAH< 

-nAST 

,       j-AST                    ,       <-AST 

h-iaST 

,       a^aST                    ,       'Jh.AST 

.."■AST 

,       r,Bj«y                   ,       GLNT 

jllY    C 

J  :-i>)\    AKEAS    fT-<     l'iIT|ALUATISN    RF 

«v"-'9-4 

/HSvjtf*/     IDIMU) 

Ce-'MBr, 

/HSull/    ITI'lE(t) 

cb^mbn 

/JTribP/    I«0j"n,J 

C9V|KB\ 

/PT\t<V"i/    lPT">tJCt) 

C9"MB\ 

/OLTtlT/    AIJ--I9) 

CB^MSN 

/HSuB?/    JJU    (222) 

CB^MK 

/*Sj03/    KDU-12) 

C81M8  J 

/HSu05/    IIOui"(») 

C9->H9o 

/HSu»6/    JJ3jr'<5> 

C9-r-e>j 

/JSJ»1/    IMa" 

C9",~'»1n 

/ISjBl/    <Oj~<3> 

CS  -ir<e-. 

/C3  1J/    ^=bPT 

sI^CTSi-I^bf /fWTfE.SPTIN 

.       1ASTOI  < 

»       EMAST  i 

.       I -AST  » 


C9-i*B\    /SECMV/    ISECT(s) 
INTEOE^     HCAST,«-AST/;iAS'' 
LEVL5A.1 

)    C5M1  v^E 
HT    .    - 

D9    10       I    >li    : 
SI.] 

if(mast(i*'.).ne.j)  09  t9  is 

;  csmti'-jje 

LEVL5A.. 

MIM5F. 
3  iETuR'. 
3    C9'-TI'.jE 

IFIMASI (  .  +  ») .£i..2)    09    T9    15 

lFlhAST (\*»).Ew.01    09    T9    5 

IF(     III    .E-.-    M       36    T9     (25.35. 

HT    .    „ 

09    TS     (?.» J0»l(.-.50#63)»N 
«!\i    Call 


2D 

CALL    SL3L8i3 

<5) 

2b 

C9NTI  ,i;E 

■  :AST(-v  A3T| 

a 

CALL    *T'»H 

S9    T*    i5 

*IV«    C»uL 

30 

CALL    SE.3L8J 

Ift) 

35 

L9NTIN..E 

"iAST(/r  AST) 

s 

CALL     ">T   ■- 

09    TO     [5 

FiT^O    Call 

tO 

CALL    3L'jl9^ 

17) 

»b 

C3*Tr-li.E 

c  ASTI  J,  AST) 

• 

CALL    ^T^J 

09    T9     1% 

SIM     CAi.L 

63 

1 

63 

? 

63 

3 

63 

k 

63 

5 

63 

6 

63 

7 

63 

a 

63 

9 

63 

1: 

63 

u 

63 

12 

63 

13 

63 

Ik 

63 

15 

63 

16 

63 

17 

63 

18 

63 

19 

63 

22 

63 

21 

63 

5? 

63 

23 

63 

?A 

63 

2? 

63 

?6 

63 

*7 

63 

?? 

63 

29 

63 

3: 

63 

31 

63 

3? 

63 

33 

63 

9* 

63 

3? 

63 

■>b 

63 

37 

63 

3  a 

63 

3  9 

63 

■*" 

63 

»1 

43 

-2 

63 

bl 

63 

»A 

63 

k5 

63 

16 

63 

»7 

63 

"8 

63 

X? 

63 

50 

63 

51 

63 

^2 

63 

53 

63 

i* 

63 

55 

63 

56 

63 

57 

6j 

58 

63 

59 

50    CALL    SLSL9C(S) 
55    CB^TI^E 

hASTI  I<  AST  )     • 

CALL    rtTNI 

09    T9     15 
"ACB    L?90    CALL 
60    C9MTI-.uE 

CALL    MaC"?B 

hASTIL'  AST )•  i 

I*T.O 

0?    T9    b 

EVJ 


6  3 
63 
63 
43 
63 
63 
63 
63 
63 
63 
63 
63 


10 


2.6.3    SUBROUTINE  CHECK  (A,    B) 


R8UTINEI      CHECK 


CHEC« 

DE> 

CHECK* 

DELETt  F6R 

DEBUS  RTNK 

Ref 

STATE 

RES 

C 

ST., 7 

SAV7 

L«#7 

•15 

Lo.lt 

0.7 

AI.7 

-1 

LB,  1* 

STATE/7 

»I«lb 

2 

L*.7 

•15 

ST*»1* 

C»7 

M.  15 

I 

L«.7 

SAV7 

6 

•15 

Data 

0 

ENC 

SAVE  R7 

ADDRESS  8F  LINE 
VALUE  IN  LINE 

STATUS  BF  LINE 

ADDS.  9F  CALLER'S  STATE 
STATUS  TB  USER'S  STATE 


1 
2 
3 

* 

5 

6 

7 

8 

9 

10 

11 

12 

13 

1» 

15 

16 

17 

18 


11 


2.6.4    SUBROUTIN  E  CRTOUT 


R9UTINE:   CRTSUT 

C         •         CRTtfuT 

SJBR6JTI.E    CRTOUT 

c 

C         SUBReuTI^E  CRT  PR9VIDES  The  INTERFACE  BETWEEN  THE  CRT 

C         FORMATTING  RflUTINE  (RTNK)  AND  THE  CRT  DEVICE 

C 

INTEGER  ALLBN,  STATS,  STATE*  CTHS,  CRTNMj  CRTAi,  CRTA2,  BVTCT 

INTEGE"  CRTB1.CRTB2 
C 

di^ensibm  mcrtip) 

CB^MBn    MCRT    /      BYTCT(2)  .       CRTR2U)    ,       CRTNH      ,       CRTAl       « 

•  CKTA2 

C91M9N  /BLK22/   CRTBl|5l2]   ,   CRT32,5i2|   ,   CRTDl        » 

•  CRT02        ,   CRTFl        ,   CHTF2        ,   FLRFL 
DATA  ItLAG/  -1/ 

D*TA  AlLSN/   0/ 

DATA  STATS/   0/ 

DATA  h9oe  /  19/ 

OAtA  '.9CHG/263/ 

DATA  C"TR2(1),  C«TR2(2)  /   0.  0/ 

DATA  BYTCT(1I»  BYTCTI2)/   J<  Q/ 

DATA   *CRT<1>»   NCRTI2)  /   2,  1/ 
C 
C         FINE  INDEX  F8R  UESIRED  CRT  DEVICE 

IC-*T  ■  CRTn"  ♦  1 
13  CBNTINuE 

IF<  IFLAG.GTO)  G8  TB  20 

IFLAG  ■  IFlAG  ♦  1 

CALL  CSET(NLRTIICRT),M8DE»N8CHG) 

CALL  CSTART(NCRT( IC«T)<STATS| 

c 

c      chec<  if  device  in  errbr  state 

c 

CALL  Cr,ECKl~CRT(  I  CRT  )  ,  1,  STATE  ,  IBC  ) 
IERR  ■  0 

IF<STATL.E,;'12S>>  IERR  •  1 
CRTR2I  iCRT]  •  IERR 
2';  CSntInoE 

1ficrtr2i  icrt).ne.'j)  gb  tb  »1 

C 

C         LINE  IS  CLEAR,  .RITE  TB  DESIRED  CRT 

STATS  ■  0 

IF( ICRT.E0.1 )  U9    TB  30 

CALL  c."ITt(NcRT(Ic«T),C«TBl,ALL9N,BVTcT[IC«Tl,STATS| 
G9  TB  hO 
30  CBNTlNuE 

CALL  C.RITEINC^TI ICRT|,CRTB2,ALLBN.BYTCT( ICRT), STATS) 

10  CBNTINuE 
C 
C         CLE*1*  C-IT  ACTIVE  FLAG  AND  TEST  IF  BTHER  C**T  DESIRED 

C 


c 

ICRT  .  1 
CR1A1  .  „ 


IF( ICRT.EQ.l )  L>8  TB  5C 
C 
C         CRT  1  BPERATJBN,  SET  CRT  1  INACTIvE  AND  CHECK  CRT  P 


IFICRTA2.NE-0)  G8  TB  10 

G9  TB  60 
C 
C         CRT  2  8»fcWAT!9N,  SET  CRT  7    INACTIVE  A\0  CnfCK  CRT  ? 

S3  C9NTI\CE 
ICRT  .  2 
CRTA2  .  ..) 

IF<CRTAl.SE. j)  GB  TB  U 
6;  CB^TInuE 
C 

C         fi£T,..RN  T)    NBMTBR 
C 

C      CALL  EaIT 
RETURN 


»3 

1 

»3 

2 

*3 

3 

»3 

« 

»3 

5 

»3 

6 

»3 

7 

"•3 

8 

*3 

9 

»3 

10 

»3 

11 

»3 

12 

»3 

13 

*3 

1» 

*3 

15 

*3 

16 

»3 

17 

»3 

18 

»3 

19 

»3 

20 

»3 

21 

«3 

22 

»3 

23 

»3 

24 

»3 

25 

»3 

26 

»3 

27 

»3 

28 

»3 

29 

»3 

30 

»3 

31 

»3 

32 

»3 

33 

»3 

at 

♦  3 

35 

»3 

36 

»3 

37 

»3 

38 

»3 

39 

»3 

"3 

»3 

M 

*3 

«? 

*3 

»3 

»3 

n 

"3 

"5 

■•3 

»6 

»3 

»7 

*3 

*S 

*3 

»9 

*3 

50 

*3 

51 

»3 

52 

*3 

53 

»3 

54 

»3 

55 

»3 

56 

»3 

57 

*3 

58 

»3 

59 

»3 

60 

»3 

»1 

»3 

62 

»3 

63 

"3 

6t 

»3 

65 

»3 

66 

♦  3 

67 

»3 

68 

13 

69 

»3 

70 

•  3 

71 

»3 

72 

♦  3 

73 

*3 

7» 

»3 

75 
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2.6.5    ROUTINE  Al 


RTNA1 

SOBRBUTINE    *>TNA1 

CelMB.^    /BLK4/    BUTOOO) 

CB1M8N    /BLK6    /    FMC 
"PAST  i    JMAST 

H^AST  ,    wMAST 

SPACE  .    MP8KY 

Ca^fON    /BLK7    /A8G1  (16) 
<CTC( 17).<3PHI (31 l.STuPF 

C9MP8N    /8LK14/    CLENG 
DUMYl  ,     DUMY2, 

CNTLII372)/  EMFL(5)j  KC 
KCSF| l7)»  Nmv«1(31 I,  SmS 
VWINI(1J3i       j    |_NKPT|6*) 

CB^hBN    /BL<17/    ADVM(8I 
1AC>PI{8)  ,    CMTDRI124) 

W«I(3l)  »     INTLI(31! 

STBTI(32>,     TIMEI(32)<    OV 

C91M6N    /BL1O8/    C1CTI (8) 
C9NTI,62)  *    CURe!(31) 

EN(,Fl(3l)  ,    GAA6I(124) 

SLABI(124)  ,  GMABK124) 
SABCIllZ*)       i    TKMK31I 

C81MBN    /BL<19/    CC2I129)/ 
-111(31  I  »    RA«6C(258) 

TSTRT(516) 

IMTEGE*    RTC 

C8>,M8^/8LK28/At>Rili.),PIA( 

1ARB(j»0)  /        H1AP(2) 

"NC15  ,       -HS6F 

MINCT  ,       TABI3) 

E'JUIVAi_ENCE     (AUTBl.AOVNI  ( 
1  (GAII, AGR(2) I 

3PEMSIBN    M910K8) 
C8,'MB\i/BITl2/B1TAR(6»0) 
DPE^SlBN    aJ««I3?Ii  48GI3 
1CICEF(J8)»CICTF(32)»CTB0F 
JH9LDI 32)<IAUVP(32)( I  NT  IS ( 
3ST-<TA(  j2),T*NSF  (32),CICSF 

E';uIVALE'<CE 
1 | A3VNH,BITAR[       i)),(A8G 
S(AUT9F,BITAH(    9711/ 
1 |CIC6P,8ITAK<129> >/ (CICEF 
1 (CICTF.BITAH(J25))» (CT90F 
-,lCBAB'j,BlTAH(32i  ))j  IFSTCF 
H(IADvP»BITAK(<H7>)j  (INTlS 
5|S-,LCm,sITA«(513II.  (STHTA 
6(T«NSF,B1TAK(659) ) 
Ci^'Br.    /BYTL2/IC6N,UL2,KL 
INTEGER    A0vNH,ABG,»PB,AUT 
lCICTF,LT9CF,CMALF,CPABd,F 
S3T*TA,|R'iSF 

1MEOE™    AM8PN,C9NTB.CNTLN 
1GLABCjG«HBC«LDSET,  iCICT.3 
2T<1»V9L«V8T 
INTEGER    CLENG, CNTDN,EMAST 
3I«ENSI8N    K"CSP(17) 
EQUIVALENCE    l«SL2(l),I >, ( 
1  ^L2UJA*5S1PJ_  _ 
IvTEGE-    *FF 
3ATA    <fF/-l/ 

3ATA    Il26S/l/»VSUTC/25C// 
•      RSUtlNE   N 


,  FMARK       , 

MASTI9) 

»  kmAST      > 

EMAST 

1    (3MAST       i 

IMAST 

I     IMTHK31)   , 

INT2I (31 ) 

|N0L{3J) 

t    DTLNG       < 

C*LNG 

L(l7)»  KCTF(17) 

J 

«I  (8). 

»  CICBK8)    . 

CA9GK8I 

<  CNTNM       j 

IL2 

»  |MT9!(32|   / 

KL1 

8<I (69) 

»  CT8DK8)    , 

STBOI (8) 

»  CyO.I(31i   . 

ENIN] (496| 

>    3AWTK31)   . 

QBWTK311 

i    GUABK124)  i 

INTDM496I 

.►RK9I (31) 

DFAIL169).  D9F(17)< 

l    RA><SP(25f>>  / 

RTC 

6 ) . RC" ( 2 ) i HSB 1 1 4 ) * APBMi ( 14 I , CPN«U,  CPN8T, 
,       JCNT  ,       KCNT  , 

,       CL9CK  i       rfMINF  / 

,       M9N8I8I 

21)  i (CICEIiCICBI (21  I 

i  (H8[_DI»HS9(2)  I 


2),aP9(32I,aUT8F(32),C!CBP(3»I, 
(32i,C-lALF(3?).CPA9G(32),FSTCF(12l. 
32),SEMSK(3?1,SPLCH(32,,STBY0(3p)» 
(32l 

,BITAR(     33)), (AP9       /8ITAR(    651), 

»BITAR(161 I  I, (CICSF,BITAR( 1931  I. 
,BlTAH(2S7) ), (CmALFiB1TAR(2S9) ), 
<BITAR(353) i. (H9LD  , BI TAR  I  385 ) ) . 
.SI  TAR (449)  l» (SEMSK,BITAR|*81 1 )< 
»BITA«(5»5) )< (STBY0,BITAR(577) )» 

2/lDECR,WSU2(50) 

Bf/BPSIF/BTRK'F.ctCBP.CICEF/ClCSF. 

STCF.GAI/HBlO/SEMSK.SPLCH.STBYOi 

jCYC|.C.EM1NT,GAA8C)GA«TP,5B<jTPj 

QU » TQRR (3v9k,RRR,STBTM,S ABC T,TE«CT, TJMEB, 

<STuPF,ENTFl 

»iSL2(2)<  IRloli  (WSL2I31.KCTCI  I. 


NCYCL/15/ 


C   ••  TIE  PU-P9SE  9F  P9UTINE  N  IS  T9  Tflf  ALL  P9SSIBLE  C3NTR9LLER  CYCLE 
C   ••     LEnGT-hs  That  can  be  SELECTED  F9«  B«i. STREET  USE. 

ITIME««TC 

CALL  gP<«C 
C   ••  U»W  £>T-IY  EvE-iY  StC9M),  SET  <CTCI  Te  Th£  \Of'8ER  »F  CYCLE  LF^GTHS 

<CtcI«i.CYCl 
C   ••  AT  STA*T.UP  CB^PUTEO  56  T8  STATEME^T  .ILL  BRA\CH  T9  STATEIE^  270 

190  G9  T9  (270»200)<U25S 
C   ••  INCREMENT  T"E  <TH  CYCLE  TJMKG  CBUNTfR  <CTC(«CTCI) 

20U  KCTCKCTCI  )«<CTC(<CTCI  l*IDECR 
C   ••  IF  C8UNT  HAS  N9T  REACHED  KCLKCTCI)  EXIT  FR9n  SUBRBUTISE 

IF  (KCTCIKCTCI I.NE.KCLIKCTCI ) )  69  T9  750 
C   ••  9THER,]SE  RESET  C9UNTER  T6  ZER9 

KCTCUCTCII'O 
'S3  IF  (KCTCIKCTCI I.GT.OI  09  T9  ( *70< 202  I , 1 125S 
C   ••  SET  The  *Th  CYLLE  START  FLAG 

*CSF(<CTCI)«1 
C   ••  IF  THjs  CYCLE  LENGTH  .AS  N9T  PREVI9JSLY  SY\ChR8\UeO, 
C   ••  THE  C9KRESP9SDIVG  FLAG  IS  KCTF  IS  SET  T8  tBNE''  IFTHr 
C   ••  TRJE  ThE  C6WRESP8NDING  FLAG  | '<  KCTF  |S  RESET  T8  tZ£R8 

IF(KMCSP(KCTC1).E0.KCTF(«CTCD)  08  T8  10 

IR10»KCTF(KLTCI I 

IF( IRlO'EQ.O)  KCTFiKCTCI ).l 

IF( IRlQ.EQ.l )  KCTF(KCTC!)«0 
C   ••  SCHEDULE  RSUTJ'-E  E  BY  SETT^G  RIOHTMBST  BIT  1^  MASTER  ACTIVITY 


BUT  •»•«  IS, 
C9\,VERSE  IS 


10 
11 
12 
13 

14 

15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
?5 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 

*3 

44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
39 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 


88 

99 

9n 
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■)<> 


100 
101 


10  IR10«M*ST(E"»ST)/g  ,  ,, 

MAST<EmASTI»1*IR10  Z  ,' 

GO  T8  (k70«202).I125S  »  ,, 

c     •  decrement  kth  cycle:  ti«e  index  „  „: 

so?  kctci.kCtci-i  « 

£   ..  IF  ANY  HaRE  CYCLES  REPEAT  L89P  4  ,. 

If  (KCTCl.GTOI  GB  T9  20C  *  q, 

C>9  TB  123 

C  ••  3E.CRE>1LM  START. UP  T[ME  C9UNTER.  NSUTC  BY  BNE  SECBO.  NSjTC  .AS 
C  ••  ORIGINALLY  SET  TB  125  SECHNDs  ANfl  IS  CHECKED  HERE  E8R  C8_,NT"9.N 
C   ••  T3  ZERB. 

270  NSJTC. -SUTC-IDECR  I  J  Xp 

If  (NSUTC.GTO)  SB  TB  390  ,  j-, 

C   ••  125  SECONDS  have  ELAPSEO,  SB  SET  STUPF.  SET  i?5  SEC9N0  S.ITCh  »  i-i4 

L   ••  F9R  CBI  PUTEO  G9  T8  SB  THAT  RCTURN  »IlL  BYPASS  H\  IT  I AL  SYjChBBN  IZ  a    ,  105 

C   ••  TIBN  PttBTI**.  k  .,« 

stupf. i  j.:7 

I125S..  „  n, 

C       CLEAR  PXEDICT1BN  STAT  FILES  „  j09 

08  20  IDUf»l»9O0  k  |tj 

BuT(  IDLM).fO  »  HI 

2:  CSNTINlE  »  n? 

D9  30  IUNIT'12.17  t  n3 

CALL  BL-fFERSUTI  I  UN  I T, 1 , 8 JT. 9^0»  I  1 , NN |  k  n» 

23  Iff 1I.NE.2I  GB  T8  25  k  115 

JO  CONTINUE  k  116 

08  TB  190  4  117 

C   ••  CHECK  TH£  <TH  CYCLE  TIMING  FLAG  ARRAY,  KCTF,  fBR  CYCLF  LENGTH        «  Us 

C   ••  KCTCI.  THIS  FLAG  IS  A  >8NE'  IF  THE  CYCLE  LENGTH  had  PREVIBjCLY  i,  119 

l   ••  BEEN  BYNChhBNIZED  .ITH  THE  DISTRICT'S  FASTER  C8NTR8LLER  dUlSES  k  120 

J90  IFIKCTF  (KCTC1  ).EU. j)  GB  TB  530  it  121 


C   ••  CALL  CYCLE  LENGTH  CBUNT-OB-N  R9UTINE  it  122 

08  T8  cOO  k  123 

C   ••  DECREET  <CTCI  AND  CHECK  IF  AMY  MBRe  CYCLE  LENGTHS.  k  12k 

k/0  KC1Ci«*CTCI-l  k  125 

If  IKCTCLGT.?)  G9  T8  390  k  126 

C   ••  N9  MORE  CYCLE  LENGTHS.  RETURv.  T8  Al.  k  127 

GB  T8  120  k  128 

C   ••  TEST  If  RAJI8  INPUT  SYNCE  PULSE  EXISTS  FBR  THIS  CYCLE  LENGTH.  k  129 

C   ••  If  NBT  SET  KCTF  T9  1  k  130 

53J  If  IKMC.SPKCTCI  l-NE'U)  KCTF  ( KCTCI  )  "1  »  131 

G9  TB  k7o  k  132 

C   ••  THIS  IS  THE  ENU  BF  RTNN  k  133 

C   •• k  13k 

_   ..  ..................................................................   k  135 

120  C*LL  RTNB  *  13* 

C   ••  If  STAxT  UP  ELAG  FNUALS  ZeRB  RCTURN  t8  EXECUTIVE.  k  137 

J5'J  If  (STuPf  .NE.OI  GB  19  kCO  «  138 

RETURN  k  139 

(   ..  ..................................................................   k  l»o 

Z       ••  • k  1»1 

C  ••   THIS  IS  THE  STAsT  bF  T«E  M*IN  LBBP  B*  oTNAl  k  Ik? 

»0U  ICBN.O  »  1*3 

C   ••  9UrtR  lBOP  IS  U9NJ;  16  TIDES'  lNNt«  L68P  HANDLES  8  C8NTR8LLFRS  k  lkk 

C   ••  FB>?  TBTAL  12"  C9NTR8LLERS  k  lk5 

08  830  lL2.1,k  "  *  1»6 

c  ••  Call  Subroutine  ts  unpack  all  bit  arrays  useL  by  level  ?   RTls  «  ik7 

CALL  uPBL?  k  lk8 

C   ••      SWITCH  SETTINGS  FOR  8  CBmTR8LLEwS  aRe  RETURNED.  9TH  ELE"EMT  «  lk9 

C   •«      BF  E.ACH  ARRAY  CbNTAlNS  PaCKED  DATA  f8R  THrSE  C9NTR9LLERS  k  150 

C   ••      RIuHT  jUSTIHEU  »  151 

IF  lA8cl(2»lL2-1 ).EQ.CA8GI|?.1L2-1) )  GB  T9  520  »  152 

IF  (H8lDI(2«IL2-1).EQ.O)  G9  T8  525  »  153 

CALL  RTNP  »  15k 

520  IF  (STbDI  (2»IL2'1) -ECO)  GB  T8  525  »  155 

CALL  RTNR  k  156 

b25  CALL  RTNT  k  157 

CALL  RTNV  k  158 

IF  (S-1SKI  (2ML2-1  l.NE.XFF)  CALL  RTNX  »  159 

C   ••  PICK  UF  ADvANCE  PULSES  AND  ST8«E  IN  bUTPUT  BuffER  »  1*0 

D8  60o  1.1.32  k  161 

APB(  I  I.UDvPl  I  )  «  1*2 

C   ••       CLlAR  AUVANCE  PULSES.  k  163 

IADVP( 11.0  k  16k 

6^0  CONTINUE  »  1*5 

L   ••  CALL  SUBRBUTINE  T9  PACK  ALL  HIT  ARRAYS  USED  BY  LEVEL  s  RTNS  k  166 

CALL  PkBL2  »  1*7 

IC9N»IC0N+38  *  1*8 

43:  CONTINUE  k  169 

ITlME.RTC-ITIliE  *  17? 

RE'URN  *  171 

[ND  »  I'? 
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2.6.6    SUBROUTINE  BUFFERIN /OUT 


jFF ERI  ./9UT 


•         •         lljFFtRWJJT 

DE>  SUFFEKSUtBUFFERIN 

rep  Fin«F:ia>F:i3>Fti*<F:iSfF:i6<F:i7<ritR 

cH/FFtRIS      »£S  0 

Llilt  A'10'  *Ea9    cant 

B  **2 

oi^FES3J       REs  £ 

LI.  14  mil'  »«ITE    C60E 

L»t7  15 

L»,6  »»7  STATl'S    wSWC 

LI.S  1 

ST/»B  -»6  SET    STATUS 

L*,S  ,.7  jNilT    MB, 


STetl*  » 

ST..3  FPT 

L<./3  b.7 

L».  l"  tB  <EV   \e. 

ST«»1»  FPT*b  SET    <EY    T9    ZERB 

L*.6  2/7  BUFFER    »U0B 

»Mi.#i>  "ASK 

ST, .6  FPTu 

L/..6  3.7  *8R9    C6UMT 

L..6  C»6 

SLStB  i  PTTF    CflUNT 

ST,. 6  FPT  +  i. 

CALl.l  FPT 

Lit  9  2 

E*IT  L*t6  »/7 

ST..t9  ^,6  SET    I/O    OIPLETE 

AI.1S  c 

B  »I5  RETjR-J 

ER«3R  RES  C 

LIt9  » 

B  EXIT 

FPT  DATA  OtX'BlaOJOlO' .ERRBR, J,r„r 

jC3  data  f:ii#f  :i2<F:i3iF:i'>'F:iStF:iB>F:i7>F| 

■1ASK  OATA  xilFFFF" 

ENC 


23 

1 

33 

2 

23 

3 

23 

Ik 

23 

5 

23 

b 

23 

7 

23 

F 

23 

B 

23 

in 

23 

n 

23 

12 

23 

1? 

?3 

1» 

23 

15 

23 

16 

23 

17 

23 

IS 

23 

19 

23 

20 

23 

?.l 

23 

22 

23 

23 

23 

2» 

23 

25 

23 

26 

23 

27 

23 

28 

23 

29 

23 

30 

23 

31 

23 

32 

23 

33 

23 

Jit 

23 

35 

23 

36 

23 

37 

23 

iS 

23 

39 

23 

»a 
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2.6.7    SUBROUTINE  PKBL2 


R9UTl«E!   PKBL2 


»    "K8L? 
SJBR8UT 

cbipbn 

•  «CTC(1 

•  3JMY1 

•  CNTLIl 

•  <CSf(i 

•  V<IM( 
C3"M8Y 

•  I»DPI( 

•  INT1K 
.    STtjTIi 

EB^KBN 
.    C3MH 

•  ENBFIi 

•  GLABIl 

•  S'BCIl 
Ce^f'BN 

.  "MIUl 

.    TSTRTI 

CB^MBN/ 

.    ~iaro((> 

•  "INCT 

£QJlVAL 
1 

2 

3 


IME    HKBLS 

/au<'    /A8GI  (16)  .     [MTH]  (31 

7)»<3PM  (31  ).STUPF,\iCl(31) 
/8LK14/    CLENd  »    OTLNG 

<    DU"Y2»  » 

37?)/    ENTFL{5)|    <CL<17).     KCTF 
7),    NMVAIODa    SMSKKg). 

123)  »    LNKPTI64) 
/OKI'/    ADVNl(8)  »    CICBI(i) 
8)             <    CNTDR(124)     •    CNTNM 
31)          ,     INTLK31)       /     INTBK32 
321/     T1ME1(3£)(    BV8Kl(69) 
/8L<18/    CICTI(8)         »    CTSDI(B) 
62)         .    CUR8K31)       .    CYCLIOl 
31)          ,    GAAbI(l24]     .    GA*T!<31 

12»)     j  G^Abina*)  <  aUABKie 

124)  /  TK1K3!)    .KRKBK31) 
/BL«19/  CC2U29).  C>A!L(69). 
)      #  RA*eC(25S)  .  RA.SPI25 
516) 
BuK28/AJR(l»),PlA(6),BCvl(2) 


INT21 (31 ) 
CLHG 


i  CABiiim 

.  IL2 

»  KU1 

»  STBOI(R) 

»  ENIMI496) 

j  3B<<T1(31> 

/  !NTDI(»96I 


40) 


HMAp(a) 

UHSbP 

TASO) 


JCNT 

CLOCK 

\8NB<8> 


INTEGER 
iCIALl.C 
?STSDI. 
CS^MSt. 
CBMMBN/ 
31">E*SI 
lCICEFu 
?H8LD(3e 
3ST«TA( 
EUUIval 
1 ( ADvNH, 
91AUT8F, 
1 (ClCbP. 
llCICTF, 
31CPA8G, 
4( I»DVP. 
5(SPICH, 
6ITWNSF, 
INTESER 
iCICTF 
2ST«TA,T 
E3UIVAL 
CALL  PK. 
CALL  f 
CALL  I 
CALL  I 
CALL  I 
CALL  I 
CALL 
CALL 
CALL 
CALL 
C«LL 
CALL 
C'LL 
CALL 
CALL 
CALL 
CALL 
CALL 
RETUR 
End 


ENCE  (AUT8I,*DVNI(2))  .(CI 
(CICSI,CTBDI(2I)  MC 
(FbTCI,CA8GI(2)  )  .(IN 
(SPLCI.SMSKI (21 )  .(TR 
(GAII»AGR(2) )  *(HB 
(AP8I,AP9ri(2) )  »(ST 
AOvNIjAeGI.APBI.AUTBljCICBIj 

ABSI»FSTCI,uAI I.HBLBI, IADPI, 1 

R.NSI 

/BYTL2/ICBN, JL2.KL2. IDECR.WSL 

8ITl2/BITaR(640> 

8N  aUvNH(32),aBIi(32),aP8(32)» 

21.C1CTF  (32l»CT8DF(32)jC«ALF( 

),IAUvP(32),lNTiS(32)»SEI"SK(3 

2).TWNSF(32).CICSF(32i 

ENCE 

BITAK(   l)),(A8G   jB!TA«(  33) 

BITAK(  97)1* 

8ITAKU29)),  (CICEF.BlTAR(161) 

8ITAW(225] ,, (CTBDF,BITAH(257) 

SI  TAW (321 ) ), (FSTCF,B1TAR(353) 

81  TAN  (m  7)  ],  (INTlS/BlTAR(*»9) 

B I  Taw (5i 3) ), (STRTA.BI TAR! 5*5  I 

BITAW(fc09) ) 
ADvNH#A8G,APe»AUT8F.RPSlF»BT 

TSDF/CMALF,CPA8G,FSTCF,3AI,hlB 

RNSF 

E'NCE  (  I..SL2U)  ).  <  J«kSL2(2)  > 

BIT    (SPLCI.1L2    »SPLCH) 


D8F( 171. 

8)    »8TC  . 

SB(l*).AP8Ml (l»),ePN3U, 
.    KCNT  , 

.     WMINF  , 

CEI.CICBU2)  I  . 

AL1.C1CTU2)  |  , 

lSI» IADPI (2) )  , 

NSI»STBDI(2)]  . 

LDI»HSB(2il  , 
RTI.ABG1 (?) ) 

cicei.cicsi.cicti.ct9di 
msi,smski,splci,strti, 

?(50) 

ALT8F(32),CICBP(3?I. 
32).CPA8G(32).FSTCF( J2) 
?).SPLCM(32),STBY0(3?). 


I.(AP8       .BITARl     651). 

).  (CICSF.BITARH93)  ), 
I. (CMALF.BITAR(289) ). 
1. (hBLD  ,BITAR(385) ), 
I,  (SEmSk,bITAR(43i  1  ). 
1, (STBYU,BITAR(577) ), 

RNF.CIL8P.CICEF.CICSF. 
LD.SEMSK.SPLCH.STBYD, 

(K»wSL2(3)  )t  (L.WSL2Ct>  ) 


8IT  (TRNS1, IL2  .TRNSF | 

BIT  (FSTCI.IL2  .FSTCF) 

BIT  (CICEI.IL2  .CICtF) 

BIT  (CILSI. IL2  .CICSF ) 

BIT  (CICTI.IL2  »CICTF) 

BIT  (ADVNUIL2  .ADVNH) 

3IT  (  IMSI.  IL2  .INT1S) 
8IT(MR|.UI*IL2  .H8L0) 

BIT  (AUT9I.IL2  »AUT8F| 

BIT  (C-AL1, |L2  .CMALF) 

-)IT  (STbDI.  IL2  .STBYDi 

BIT  (CILBI.IL?  .CICBP) 

BIT  (»BjI,!l2  .Aei) 
,SIT(AB8I, IL2  .AP?) 

BIT  (CAC'GI.  !L2  ,CPA3b) 

BIT  (  IA./OI.IL2  ,IA0VP| 

.BIT  (3T-TI, IL2  .STRTA, 


1 
? 

3 
« 
5 
6 
7 
■ 
9 
10 
11 
12 
13 
Ik 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
2<t 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
"0 
M 
»? 
»3 
»» 
»5 
»6 
»7 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
*? 
OO 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
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2.6.8    SUBROUTINE  UPBL2 


•         JPB|_£ 

SudRBUTINE    UPBL? 

C81MB.N    /BLk>    /A8GI(16)  .    ISTHIOl)       ,     INT2K31I       . 

•  <CTC( 17)/<3PmI I  31 ),STU=F,NQL( 31 I 

CS^HBN    /BLK1»/    CLENU  i    DTLNG  »    C«LN6  . 

•  3'jmyi  ,  ouivaj 

•  CMTUI(378)i    Ei-TFLISI,    KCLI17).    KCTF(17)j 

•  <LSF(17>»    NmvMOII/    SlSKl(8)» 
»    V«INI(123)       ,    l*KPT(6») 

CS-IMBn    /BL<17/    ADVNK8)  i    CICBKS)  ,  CA8(jK8)  . 

•  I»DPI(8)  .  C^TD«(12»)  t  C^TNM  »  II?  < 
.    INTMI(3D          ,     INTLI  (31 )       <     !NT8](32|  ,  KL1  , 

•  STBTl(JJ),     TIME1(32)<    QV8MI69) 

CB^SN    /BLK18/    C1CTK8)  ,    CTBDII8)  ,    STB0I18)  , 

.    COM  I  (62)  .    CUPB1(31)       »    CyCLI(31i       »    EMM(I»96)     » 

.   EN8FI(3j)        ,    B*ASI(124)    »    GAWTM3J1      »    SBWTK311      . 

•  SLABniaii     ,  aiABKia*)  <  guaBki2«)  ,   intbi<»96i  , 

•  SABC1(12*1      i    T<MI(31)        »*«K»I(3l> 

C91K8N    /BLK13/    CC2(129)i    DF*!L(69)»    DPF(i7), 

•  111(31)  »    RAwbC(25BI     »    RA-JSPI258)    ,BTC  , 

•  TSTRT(5l6> 
C9"MBN/BLK2B/A^R(l<tl,PlA(6)»BC"(2)/Hse(14)/AP9f11  (  1 1»  > ,  CPN8U,  CPN9T, 

•  1ARS(i*0)  i    H1API2)  >    JCNT  <    KCNT  < 

•  1MC15  i     *HSt>F  <     CLBCK  /     WMINF  . 

•  1INCT  <    TAB(3)  »    \8NB(8) 

ES^IVALENCE  (AUT6I»A3VN1(2> )     t (CICFI jCICBI (2) )    , 

1  <CiCSI,CT8DI(2)  )     (ICALI.CICTIIJII    , 

2  (FSTCI.CA8SI (21  I     , ( IN,S!» IA0PI (2) )    . 

3  (SPLCI»SMSKI(2I)  ,  (T«NSI»STB01(2) )  , 
<t  (GAII.A6R(2>)  /  (H8L0!.HSei2)  )  , 
5  (AP8I,AP9m1(2I  1      ,  (STrTIjABGI  (21  1 

INTEGER  ADv^IjABGI.ApBIi  AUT8l,CICBI»CICEI*CICSI»CICTI#CT8DI, 
1C1»LI.CA9&I»FSTCI,CjA1  I ,HBLD I , 1 AQP J ,  Inj  S  I  ,  S"Sk  I ,  SPLCI  ,STRT  I  , 
2STdDI/TRNSI 

C8"lriBN  /BYTL2/ICBS,JL2/KL?.IOECR.WSL2(50) 

C6iM6n/BITlZ/BITAR(6«0) 

DPENSIBN  AL>i(NM(32),A8lj(32)<AP»(32)»AUTBF|32)jCICBP(3?)« 
!CICEF(32)»CiCTf  I  321 .CTBDF ( 32), C«ALF ( 3? 1 /CPA9G( 32 1/FSTCF ( 321 » 
2HBL0O?),  1AJVP132I,  1»T1S|32),SEMSK(3?),SPLCH(32),STBYD(3?), 
3ST*TA( j2),T*NSF  (32)<C1CSF(32| 

EQUIVALENCE 
1 ( ADVNm.BITa*!   1)),(A8Q   »BlTA«(  331), (AP8   iBITAR(  651). 
2(AUTBF»B1TAK(  971). 

1(CICBP,B1TAK(129|  ),  (CICEF,B!TAR(161)  )..(CICSF,BITAR,193)  1. 
1 |C1CTF,BITAK(225) ), ( CTBDF, BITAHI 257) I, (ClALF, BI TAR ( 289 ) I. 
3(CPA8u,8ITAX(32i) ),(FSTCF,BlTAR(353) ), (H8LD  ,  BI TAR ( 385 >  )  » 
4(IADVP,B1TAK((,17)  ),  (  INTlS»BlTA«(<t*9)  I.  (SE1SK,  BI  TAR  (  »M  I  ), 
5(S>'LCH,BITAN(513)  ),  (ST«TA,BITAK(5*5)  ),  (  STBYD,  BI  TAR  (  577  )  1  , 
6(T*NSF,BITA«(609)> 

INTEGE*  ADv*H,A9U,AP8,AUTeF,i?PSIF»BTRNF,CIC8P,C!CEF>CICSF» 
1CICTF,cT6DF,CMAi.F,CPA8S,FSTCFiGAI,h8lO,SEmS<,SPLCH,STBYD, 
?ST*TA,TRNSF 

EQUIVALENCE  ( I.WSL2I 1) )» ( J»kSL2(2) )• (K,wSL2(3) )» (L.WSL2U) ) 

CALL  UNB1T  (SPLCI.IL2  ,SPLCM) 

CALL  UNBIT  (TRNSI/IL2  <TRNSF| 

CALL  U.V81T  (FSTCI.IL2  jFSTLF) 

CALL  U,\SIT  (ADVM.IL2  /ADVNH) 

CALL  UivBIT  (IMSI/IL2  <INT1S] 

CALL  UNBIT  (AUT8I.IL2  jAUTSF) 

CALL  U\BIT  (CMALI»IL2  /ClALF) 

CALL  UNB1T  (STBDI.IL2  /STBYO) 

CALL  UNBIT  (CICBI.IL2  #C1CBP| 

CALL  UnBIT  (ABIJI.IL2  »AB3) 

CALL  U.\BIT(AP8I,IL2  .AP8I 

CALL  u\BIT  (CICE1.IL2  .CICEF) 

CALL  O'^BIT  (CICSI.IL2  /CICSF) 

CALL  U^BIT  (CILTI.IL2  *C  ICTF , 

CALL  UmBIT  (CTB0I.IL2  »CTB»F| 

CALL  UNBIT  (CA6SI.IL2  /CPASd, 

CALL  U\BIT(H9L0I,1l2  »hslCI 

CALL  UsBIT  (UUPI,IL2  »!A0vP, 

CALL  USBIT  (SMSKI.IL2  »SE*SK) 

CALL  UNBIT  (STRTI.IL2  .STRTA) 

RETURN 

END 


6 

2 

6 

3 

6 

** 

b 

5 

6 

6 

6 

7 

6 

« 

6 

9 

6 

10 

6 

11 

6 

1? 

6 

13 

6 

1» 

6 

!5 

6 

16 

6 

17 

6 

18 

6 

19 

6 

20 

6 

21 

6 

22 

6 

23 

6 

2» 

6 

25 

6 

26 

6 

27 

6 

28 

6 

29 

6 

30 

6 

31 

6 

32 

6 

33 

6 

34 

6 

35 

6 

36 

6 

37 

6 

38 

6 

39 

6 

»0 

6 

»1 

6 

»2 

6 

*3 

6 

»» 

6" 

»5 

6 

»6 

6 

»7 

6 

»8 

6 

*9 

6 

50 

6 

51 

6 

52 

6 

33 

6 

5» 

6 

55 

6 

56 

6 

57 

6 

58 

At 

59 

6 

60 

6 

»1 

6 

6? 

6 

63 

6 

6» 

6 

65 

t 

66 

6 

67 

6 

<-8 

6 

69 

6 

73 

6 

71 

6 

7? 

6 

73 

6 

7» 

6 

75 
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2.6.9    SUBROUTIN  E  UPKMC 


RSuTlsEi       b°<-,C 


C  •  JPK1L 

SudRSjTI  <E    JPpc-C 

This   ROUTINE   U'J"AC*S   T-E 
C  LEFfeST    17    SITS    6F 

C  <"-CSP    I\T8    Tie    4R0AV    ■C-'CS 

EXTER-i.L    <    C.S" 

WWi    /3»'L?/IC8\,  JL?/KL2<  I^EO.i. 

DMEMSIBN    <"CSU7) 

E2UIVAlEnCL     («SL2C).K1CS) 
S  L»«3         OCS? 

S  SlS»3  16 

3S    20    I    i    1»     16 

»1CS(  1  )«0 
S  CI.3         0 

S  BtiE^    10S 

<MCS( I  1.1 
IS  CONTINUE 
3         SLS«3   1 
23  CS^TI\bE 

*E'URN 

E%3 


5 

1 

S 

2 

5 

3 

5 

k 

5 

5 

5 

6 

5 

7 

5 

S 

5 

9 

5 

10 

5 

11 

5 

12 

S 

13 

5 

10 

5 

15 

5 

16 

5 

:? 

5 

if 

S 

19 

5 

20 

5 

21 

5 

2? 

5 

23 

18 


2.6.  10    ROUTINE  B 


* 

WTNB 
P»jF 

BEF 

"■TNB 

REF 

|<TNC 

REF 

NUMVED 

REF 

TT 

KEF 

K\E* 

RFF 

DBP.RTC 

KEF 

Pl»P2»P3»P» 

«CF 

TSTAKT 

REF 

SAvRO 

Plfc\L> 

i.3u 

Pl*l 

PPF-NU 

Ejo 

p?*l 

pjtNU 

Eiu 

P3«l 

P»F.VJ 

Etfw 

P»*l 

TSTEM^ 

Eao 

TSTART 

PSvS 

0 

SYbTEr- 

0TC.SKE5 

dS*VER 

DATA 

0 

ST»C< 

RES 

16 

RT^B 

RES 

0 

ST...R0 

BSAVERO 

LI.RJ 

0 

Ll.»2 

1) 

BE.UIN6 

RES 

c 

L«,Rl 

uBH                    01 

ANU/Rl 

•  JOS' 

B 

TABOBPjRl 

TA»0»P 

B 

DDBPo 

fci 

BOBPl 

B 

bDBPJ 

B 

S0BP3 

BDBPO 

RES 

0 

Lrt.HlU 

P1END/R2 

EBk.RIC 

P«.EN0»«2 

L*»R9 

P3EN0.R2 

E8*»R9 

P»EN0jR2 

ANC»«9 

RIO 

BEZ 

6*1 

lw,Rll 

P«END.R2 

E8n.RH 

R9 

ST..R11 

P»END/R? 

B 

04 

8DBP1 

RES 

C 

L*i"10 

P2END.R2 

EBk.KlO 

PlEND.R? 

L«»w9 

P4EN0.R2 

E8K.R9 

P1END/R2 

ANu»R9 

RIO 

BEZ 

BUI 

Uw.Rll 

PlEN0»R2 

E8f>.Rll 

R9 

ST..R11 

P]END»R2 

B 

bk 

BDBP2 

RES 

1>,-,IG 

P3F\D»R2 

EB^.RJu 

pjens.r? 

L"»K9 

P1ENDiR2 

SAVE    RETURN 

T1«E  T8  START  INCJX 
VEHICLE  DETECTtw  jATA  MDEx 


DETERMINE  «MICM  INPUT 

BUFFERS  T8  PROCESS 


A  And 
0 


P«(l  !  •  Ptdl  E8R  A 

T8  F8KM  NE»  W 


Pl(  !  )  •  PI ( I  I  E8R  A 

T8  F9RM  NEk.  W 


2 

1 

2 

3 

2 

3 

2 

* 

2 

5 

2 

6 

2 

7 

2 

>> 

2 

9 

2 

10 

2 

11 

2 

12 

a 

13 

2 

I  It 

2 

15 

2 

16 

2 

17 

2 

18 

2 

19 

2 

20 

2 

21 

2 

22 

2 

23 

2 

2* 

2 

25 

2 

26 

2 

27 

2 

28 

2 

29 

2 

30 

2 

31 

2 

32 

2 

33 

2 

30 

2 

35 

2 

36 

2 

37 

2 

38 

2 

39 

2 

»0 

a 

»1 

2 

*2 

2 

»3 

2 

04 

2 

♦  5 

2 

•  6 

2 

»7 

2 

»8 

2 

»9 

2 

50 

2 

51 

2 

52 

2 

53 

2 

5» 

2 

55 

2 

56 

2 

57 

2 

58 

2 

59 

19 


a«l 


H«2 
B*3 


E9R.R9 

AND.R9 
BE  2 

EB-.Rli 

ST..HJ1 

B 

RES 
LW.R10 

EB(*)Ri; 
L».><9 

E9>-.R9 

ANC.R9 

BE* 

L«.Rll 

EBR.Rll 

ST..K11 

RES 

E8~.Rlc 

RES 

CI.RIO 

BE 

LI.Rl 

RES 

L8.R11 

&tl 

RES 
SCS.R11 

LI.R9 

A..R9 
SAS.R9 

RES 

CI. Ill 

BSE 

LW.R5 

Aw.R5 

C",R5 

BSE 

ST„.R5 

L«,«13 

B&U 

AMU.KJ3 

LW.R12 
ST...R12 
S>,R1? 
ST*.M12 

LCI 

STM.O 

LxjC 

LI.1» 

BAL.1& 

LCI, 

B 
RES 

L»»R12 

BK.R12 

ST^.Rli 

RES 

AI.R9 

SLS.R11 


PjENO.R? 

RIO 

Bwl 

P2ENL.R2 

«9 

P?END.R? 

Bh 

0 
PtEND,R2 

P3EN3.R2 
P2END.R2 

P3EN0.R2 

RlO 

Bhl 

P3ENB.R2 

R9 

P3EN0.R2 

R9 

0 

B»8 
•  t 

0 
Rll.Ri 

ttw7 

0 


A  •  A  AND  a 
A  •  0 


P2(I)  ■  P2(I)  EBR  A 
TB  F9RM  NEW  W 


A  •  A  AND 
A  ■  0 


P3(I)  •  P3(I)  EBR  A 

W  •«  ESR  a 

«  •  0 
VES 
INITIALIZE  J 


X  •  0 


BYTE  1  9F 

am  2  Br 


.  C.  L  • 
•  0.  L  • 


8VTE  »  9F  *  .  0.  L  •  2* 


MSB  9F  »  .  i 


K«Kl*L.  RANGE'  0  T8  INUlVED'l) 
K  "  MJMBER  BF  VEHICLE  DE'ECTBRS 
FIM 


B*6 

R3 

R9 

NunvEO 

EXITS 

KNE4 

TSTENU.R5 

Uw5        TSTART(K)  •  0 

•X'7FFFFFFF'    A  »  TSTaRT(K)  AND  MASK 

RTC  TSTART(K)  •  RTC 

TSTEND.R5 

R13 

TT  TT  .  RTC  •  A 

0 

STACK 
SAVRO 
0 

RTNC 
0 
STACK 

Bw6 

0 

RTC 

■X'SuLOOOOO 

TsTE<.D»R5 

0 

1  L  ■  L  ♦  1 

1  X  LEFT  1  BIT 


T9  CheCK  FBR  NEXT  BETECT9R 


TSTARTU)  •  RTC  9R  MASK 


2 

40 

2 

61 

2 

42 

2 

63 

2 

6t 

2 

65 

2 

66 

2 

67 

2 

68 

2 

69 

a 

70 

2 

71 

2 

72 

2 

73 

2 

7» 

2 

75 

2 

76 

2 

77 

2 

78 

2 

79 

2 

80 

2 

81 

2 

8? 

2 

83 

2 

B» 

2 

85 

2 

86 

2 

87 

2 

88 

2 

89 

2 

90 

2 

91 

2 

92 

2 

93 

2 

9» 

2 

95 

2 

96 

2 

97 

2 

98 

2 

99 

2 

100 

2 

101 

2 

102 

2 

103 

2 

10* 

2 

105 

2 

106 

2 

137 

2 

108 

2 

109 

2 

110 

2 

111 

2 

112 

2 

113 

2 

lit 

2 

115 

2 

116 

2 

117 

2 

ue 

2 

119 

2 

120 

2 

121 

i*7 

B*N 


EXITS 


CI.R11 

0 

BNE 

Bxt 

RES 

0 

BIr.Rl 

b^2 

RES 

0 

AI.R3 

32 

C.R3 

4UMVEC 

Bat 

ExITb 

AI.R2 

2 

B 

BEGINB 

RES 

c 

L».RO 

bSAVEHO 

B 

•  RO 

END 

X  ■  0 
CHECK  ALL  BYTES  BF  • 

K.M1*32 

Kl  '  NUMBER  BF  VEHICLE  DETFCTBRS 
FIN! 
I.U? 
CHECK  NEXT  GRSUP  BF  3?  DFTECT9RS 

REST9RE  RETURN 


2 

122 

2 

123 

2 

12t 

2 

125 

2 

126 

2 

127 

2 

128 

2 

129 

2 

130 

2 

131 

2 

132 

2 

133 

2 

13t 

2 

135 
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2.6.  11    ROUTINE  C 


■IT-C 


-,p. 


)'P,       0»L»    D-LP, 


»«SP. 

EBDC 


«TC 


C9"MB-./LSG"j"P/-/ 

•  T3.     tt,     ir: 

Ce->«9  ,    /3LK13/        '«L(Z59)  /       D«LP(17) 

1    FTAb.    FTB-Ji     "JEI» li9l 
CS^IP'N     /OU<lb/        iJBP  .        K^-E- 

C91MBN    /3L«.13/    CC2(129)«    DFAILI69).    0BFU7) 

•  "II  Oil  <       WA«9C(25S)       ,       RAWS»(??8) 
.    TSTRT(516) 

:9"t-8N    /BL*19P/    CC2p(129)»*A,.9CP<2bBl.c;A»SPCJ('58> 
DATA    IB»TO/0»1/ 

C  SET    D9F (Kl    ■    0 

<si    a  *\EW  ♦  1 
CAUL  PT9I(JBF,*N,«,  18,0) 
CALL  SETS]  (0*L>'jKN.»ITMP»OI 
1F(IT«P.NE.0)  NETJx'v 

C 

C       OETECTaU  WITH  LINK  AHRAY 

C 

CALL    hALFO"L*K\»»  1R») 
r 
C  TEST    F8H    DETECTS*    FAILED 

1R»    •     !««    »    1 

CALL    uETBYl JFAlL»IS», ITMP) 
C 

C  IF    DETECTS-"    FAll.ED{lv9T    E30»L    ZER*  )    HETi  R\ 

C- 

IF( ITMP.NE.O)    retukk 
C 

C      CETECTjR  CAN  CBUNT  UPDATED 
C 

CALL  GET3Y(LC2,K\«,  IT"P] 

ITiP  •  ITMP  +  I 

CALL  PTBY(CL2,Kn„,ITMP) 

CALL  3FTdYlC.C2P.KN-..  IT"P) 

IT-1P«IT1P*1 

CALL  PTBY(CL2P.KN«I,  ITMP) 

OBJECTED  PULSE  LENGTH  .  PuLSC  LEN3T..  .  C9*WECT^  CO^STA^T 


IRll  .  TT  -  TD 

IF(  IRH«SE.8)  u9  Tb  10 

TEST    T^.jT.l/i.    SEC    AT    B5«    SET     IF    LESS 

Hll    ■    8 

10    CBNTI-JuE 
TTC    .     IRH 

««    BCCUPA  iCY    UPQATEJ    UY    CMKSECTED    puLSE    LE^tiTn 

CALL    maLF[><A.BC,KN..,  ITMP) 
IT1P.IT-!P*I«I1 


ID 
1! 
1? 
13 
l» 
1? 
16 
17 
18 
19 

z~. 

21 
22 
23 
?• 
25 

?(■ 
27 
28 
29 


33 
)» 
35 
36 
37 


"1 
»2 
"3 


55 
36 


CALL 

PTMLF(«Aw9C»<- 

-, ITMP) 

CALL 

HaLFIRAaPLP.K- 

*,1TMP) 

I  TIP 

1TWP+1«11 

CALL 

PTHLF("A«5CP»« 

N»/ ITMP) 

CALL 

HALF  HA»SP»KN, 

.  ITMP) 

IT-P 

•  512/TTC  ♦  11 

MP 

CALL 

PTnLFf  *AiiSP<K' 

».IT"P) 

CALL 

HALF(R*,«,SPP»K' 

*»ITMP) 

1T*>P 

IT1P»bl2/TTC 

CALL 

pt^lfixa  ,spp,*\-»,it;ip) 

a£TUR'< 

60 
61 


68 
69 
70 

r\ 


21 


2.6.  12    ROUTINE  E 


R3UTIME!   RTNE 


RTNE 

2 

1 

SjBRBLTINE  Ryne 

2 

2 

INTEGER    T*CF,    D»L,  CYCLC 

DFAIL,   0».LP, 

DMALF,    D3F,    DIS, 

2 

3 

.   CMMAl,  tstrt,    GAP,    rtc 

VMIST,   P08F, 

TM8EF,    CC2,  BAV>SP, 

2 

A 

.   -'A*«c»  RLNK8,  RLn<C»  CMTAB 

CMLNG,   H8L0, 

BTTAB,  DTING,  ES'TFL, 

2 

5 

.     TTji     TT7 

2 

6 

DI^ENSISN  PJ9F132) 

2 

7 

C9"^9n  /RTnEF/  16,  JL 

2 

8 

CS^fS^  /dL*8  /   F1C 

FhARK 

.   VIAST(9)      , 

2 

9 

•  -fAST        ,   jIAST 

KPAST 

,   ElAST        # 

2 

10 

»  -H1AST       '  ,   »1AST 

OMAST 

,   I1AST        , 

2 

11 

,t  SPACE       ;  ,   MP8KY 

QCNT 

2 

12 

C9",K9N  /BL«8/  "1#  NDLNM69), 

TT3/ 

2 

13 

.  TT7 

2 

in 

C9-|fiBN  /BL".l:/   CICSC(16) 

CICSY,8) 

<   CTLSC(tt)    , 

2 

15 

1    CTLSY(<t>,CMSEC.(3l  l»CNTZNI19 

,LNKCN<»,9), 

2 

16 

•  TIMCHit)   .  ,   ZSK32) 

2 

17 

C91M8N  /BL<11/   HS61S(32) 

IG15(6»)    , 

KW           , 

2 

IB 

?  LNKDI|6<H,N08L(  69),NBNCS»N8CNT(<.), 

2 

19 

•  T5SU 

2 

20 

CB1MBN  /3K13/   D»'L<259> 

D«LP(17I 

»   ESOC         . 

2 

21 

1  FTAB.  FTBrfU,  MBEIF(69I 

2 

22 

C9"'KBN  /BL«.1%/   CLENG 

DTLNS 

,   C*LNG        , 

2 

23 

•  DUhYl,  DU.1T2,  CnTln(372)»EntFl(5)< 

2 

2» 

•  <CL(17),  K.CTFU7),  KCSFH7) 

2 

25 

•  N""VA\H|3l)     ,   SEMS<{8) 

VRlNTnaS) 

,   LNKPT(6»I 

2 

26 

C8~MBN  /BL<15/   CHSET 

HBUFL 

/   IGPI          , 

2 

27 

•  --MUMF        ,   \gnCM 

NCW22 

,   NC-D2        . 

2 

28 

•  \CiRD         ,   N-IANP 

NMCTL 

,    NMI.K*          , 

2 

29 

•  MiSCT        ,   N-<vED 

NPATB 

,   NP6*         , 

2 

30 

•  ■.RESP         ,   NST^l 

TBSU 

.   TBYTE        , 

2 

31 

•  CS           ,   DS 

,  ps 

.   MS           , 

2 

32 

•as           ,   RS 

,     ss 

,   SCS 

2 

33 

C9"MB>  /3LK18/   CICTF(S) 

,   CT8DF18I 

,   STBYDI8)     , 

2 

3* 

•  C9NTB<62)    ,   CUR9F(31  1 

.   CYClC(31) 

<   ENINTU96)   , 

2 

35 

•  E^8FF(31)    ,   CGGT(12»I 

,   GAwTP(31) 

,   viB.TPnil    i 

2 

36 

•  GLAB012*)   »   3GGGM20) 

,   GUAoCll?*) 

i        lNTDu(»96)   , 

2 

37 

•  SSSS[  15*)    ,   TKM31  ) 

,   *R<9f(31) 

2 

38 

C91M3i,  /BL<19/  CC2I129),  DFAIL169),  C9F(17 

, 

2 

39 

•  -11(31)       >       R»»9C(258> 

,   RA»SP(258I 

,   RTC          , 

2 

♦  0 

•  TSTRTc516) 

2 

»1 

C9inBv  /BL<<!3/   EXTGF(S) 

,   IHIBE 

,   LNKSP        , 

2 

»2 

•  Ml,  9aCC<138)#  RLvKC,  RLN<8 

,  SACC1138),  STPTM,  VACC{138|, 

2 

•  3 

•TBUFFl 1655) 

2 

»« 

C9-im9i  /BL<24/  AHIST(139)«  CN3IS,  DCF, 

2 

»5 

•  B9W          ,   FMT90 

,   FSTFL 

,   HLIDF        , 

2 

*6 

•  HLIDTi9t>)    ,   NHLAY 

,   PRC9D 

,   PTN(7*5)     , 

2 

»7 

•  SMTFL,  S«3lS,  ThRS",  YMIST(13S) 

2 

»8 

CB^I-B'.  /BL<<!5/  AMCCH36),  tf 

-ALU?),  C'MTAB(258)« 

2 

»9 

•  DTTAB1258)   ,   DIi( 17) 

,   DMALF(17I 

,   D*90E        , 

2 

SO 

.  FLTA3I800)   ,   HUF 

,   190ES 

,   NAI          , 

2 

51 

•  N9FAL,  SBAR(69)<  SECFC(*>> 

SC'JFC(it),  v9l(13a) 

2 

52 

Cg^Mg-v/BLKJB/AoRi  1»I.PIA[4), 

RC«(e)jHs8ti»)i 

APfi") ( l»),CPN9U,CPN9T, 

2 

53 

I  MARR(e»0I     <    H1AP(2) 

,   JCNT 

,   <CMT         , 

2 

5A 

.  1NC15        .   -"SBF 

,   CL9C« 

#   *  1 1  V  K        , 

2 

55 

.  1INCT        ,   TASI3I 

,   N8NBI8) 

2 

56 

EQUIVALENCE  (LCCRT,LNkC\> 

2 

57 

EQUIVALENCE  (H3LD(1)#HS9(S) I 

2 

58 

EQUIVALENCE  (Nt)l-AX,NMVED) 

2 

59 

DATA  \CT/  32/ 

DETECT9R  AND  C9I-<MUNICAT  IBNS  FAILURE  DETECTIBN  R8UTTNF 

IFI  IMluE.NE.OI  RETURN 
M  ■  1 

CBNTINuE 

09    210    INDEX. 1,17 

IS    iv    CYCLE    3TART    FLAG    SET 

IFIRCSFIINjEXi.rU.o)    G8    TB    213 

<CSF( I^DEX)     •    0 

I A     •     NulAX 

C9NTI\uE 

CALL    HALF(0»L,IA,  ID 

ILMLM 

CALL    3tT8Y{LCC*T,lL,  I C  > 

ICIC+1 

CALL  GET3YICVCLC, IC, IB) 

lb  ■  lo  ♦  1 

CALL  &K-TdY(NOL:-K,  IL,nD) 

CALL  of.TBY(N[)BL,  IL.NI  ) 

IFINI.LQ-O)  o9  TB  *5 

IF( INDLX.EJ- IB)  G9  T8  be 

C9NTINuE 

I A  .  I A  •  NO 

IF( IA.uT.0)   '9  T8  *C 

G9  T9  £10 

C9NTINUE 

CALL  PTBY(t)FAlL,  IL,0) 

C9MTI.NUE 

SRanCh  [f  T«IS  IS  A  DUMMY  DETECI9R 
CALL  Gf TBI(U«LP, 1A, IDwLP<0) 


2 

60 

2 

61 

2 

62 

2 

63 

2 

6* 

2 

65 

2 

66 

2 

67 

2 

68 

2 

69 

2 

7C 

2 

'1 

2 

7? 

2 

73 

2 

7<t 

2 

75 

2 

76 

2 

77 

2 

78 

2 

79 

2 

80 

2 

81 

2 

82 

2 

83 

2 

8» 

2 

85 

2 

86 

2 

87 

2 

88 

2 

89 

2 

90 

2 

91 

2 

92 

2 

93 

2 

9I» 

2 

95 

22 


IFUDWlP'EUM)    G8    TO    100 
CALL    GtTBI (DMALF. IA. IOMALi 
CALL    3ETBt(D8F. IA, ID8F.0) 
CALL    SETBKUISj  !A,  IDIS.O) 
CALL    JLT3I (tMMAL»IA» ICMMF,0) 

CHECK    DEUCT9R    ANj    CBUMUNI CATION    FAILURE    FlAGS 

IFI ID"aL*IDOF*IOIS+ICMMF.NE.ji    G8    T9    80 
]C(TSTkT(  IAI  tLT.O)    l>9    T9    ISO 

C  PR9LESS    END    9F    PULSE 

C 

SAP     •     hTC     -     TSTRTI IA) 

IFtCjAP.GE.j)     OB    T9    70 

CB1PE-NSATE  F9»  KTC  bElNU  BESET 

C 

0AU  •  uAP  ♦  IQPI 

C         hPA-jCh  \f    GAP  >Lt.  180   (5760  •  180*?«»5>  SCALED  B5 

7 J  'cBNTlNuE 

IF<SAP,L£«11580)  39  T9  150 
CALL  HALFIVMIST, IL< IVHST) 

C  * jSE  \9iIN4L  250  vpm  (SCALED  Bl ) 

IF( IvhsT.LE'O)  IVHST.500 


ITEI-P    •    11»360C/IVHST 

IF(CiAP.LE.ITEMH)    G9    TB    150 

CALL  aETdI(PDBF,IA,lPDBF,0> 

1F(  IPjHF.Ei.C)  GB  Tt)  130 
C 

C         CLEAR  PBSSIbLE  DETECTBfi  BBSTRUCMBN  FLAu 
C 

CALL  PTBI (PD9F. IA,„»o) 

CALL  PT3I (DBF, IA, 1,01 
BO  CONTINUE 
C 

C         SET  DETECTOR  FAILURE  FLAG 
C 

CALL  PtBYIQFaIL.IL.I! 

T1SEF  •  1 
90  C6NTINUE 
C 

C         2ER9  BUT  CAR  C8UNT.  RAH  SPEED.  AND  RAW  BCCUPANCY 
C 

CALL  PTBYICC2.1A.0) 

CALL  PTHLF(KAWSP. IA.O) 

CALL  PTHLF(*A.i9C»  1A»0) 
100  CONTINUE 

I*  ■  IA  •  1 

NO  •  St  "  1 

IF(ND.OT.O)  G8  TB  60 

IF(TMbtF.NLO)GB    TB    ISC 

CALL    JETBYinBEIF.IL^BEF! 

IF(MBEFtEOtO)    OB    TB    110 

M8EF    a    1BEF    -    1 

CALL  PTBV(MDEIF,IL.MBEF> 
110  C9-JTINI.E 

CALL  RTNF 

RLNK8  •  0 

RLNKC  •  0 

LNKSP  •  0 

IF( IA.OT.0)  G8  TB  «0 

08  TB  ^10 
C 

C         T16EF  HAS  BEE''  SET  INDICATING  IN9PFRATIVE  DETECT9R  9N  LP'K 
C 

ISO  CONTINUE 

T^"EF  .  0 

CALL  PTBY(M8EIF,IL#8) 

S3  TB  1  10 
130  CONTINUE 

C         SET  OETELTBR  COMMUNICATION  "ALFUNCT I9N  FLAG  AND  RECBRD  DFTECT9R 

C         NU^t-E" 

C 

CALL  PTBI(C"MAL.IA,1»0) 

CALL  PtHLF(L»'.TAa.CNLisG*l»  I  A  ) 

CILNCi    •    CfLNG    ♦    1 

G9   TB   eO 
1*0    CBNTImuE 
C 

C  b«A,wCH    IF    CSMTRBLLE*    IS    UNDER    CfllPLTER    CBNTR9L 

C 

CALL   GtTSI(H9L3«  IC.lH0L5.il 

IF(  IH9L0.EJM  )    GB    TB    9J 


T19EF  •  1 

G9  TB  90 
Ibj  CB^TlNuE 
C 

C         CmeC<  Ca-<  CBUNT  Fjr  BEP'G  GREATER  than  f-AX  P8SSIBLE  FRBr  A 
C         NBKr-AL  JtTECTBR 
C 


CALL  SET3Y(CC2.IA,  ICC2/ 
IF(ICCf.LE.NCT)  G8  T8  i?C 


160  CBNTI.NuE 
C 

C         CLEAR  PBSSIbLE  0ETECT9R  BasTRuCT I  9*  FLAU  AND  SET  DFTECT9R 
C         fALFUNCTlBN  FLAJ 
C  ' 


2 

96 

z 

97 

z 

.  98 

z 

99 

z 

no 

z 

101 

2 

102 

z 

103 

z 

10* 

z 

105 

z 

106 

z 

1-17 

z 

138 

z 

109 

z 

110 

z 

111 

z 

112 

z 

113 

z 

11* 

z 

115 

z 

116 

z 

117 

z 

118 

z 

119 

z 

120 

z 

121 

z 

122 

z 

123 

2 

12* 

2 

1?5 

2 

126 

2 

127 

2 

125 

2 

129 

2 

130 

2 

131 

2 

13? 

2 

133 

2 

13* 

2 

135 

2 

136 

2 

137 

2 

138 

2 

139 

2 

1*0 

2 

1*1 

2 

It? 

2 

1*3 

2 

lti, 

2 

1*5 

2 

1*6 

2 

1*7 

2 

1*8 

2 

1*9 

2 

ISO 

2 

151 

2 

15? 

2 

153 

2 

15* 

2 

155 

2 

lb6 

2 

157 

2 

159 

2 

159 

2 

160 

2 

161 

2 

16? 

2 

163 

2 

16* 

2 

165 

2 

166 

2 

167 

2 

168 

2 

169 

2 

170 

2 

171 

2 

1'? 

2 

173 

2 

1/* 

2 

175 

2 

176 

2 

177 

2 

178 

2 

179 

2 

1*0 

2 

1S1 

2 

188 

2 

m 

2 

IK* 

2 

185 

2 

186 

2 

187 

2 

188 

2 

189 

2 

190 

2 

191 

2 

19? 

2 

193 

2 

19* 

2 

195 

2 

196 

2 

197 

23 


call  ptsi  ipobf,  ia,  ,,  - ) 
call  pt3i  (  j^al^  i  a,  1 ,  c  i 

CALL    PThlFiUTTAbi'J'l      ,»1/IA) 
jTLNG    •    jTl>~    ♦    i 
33    TB    „0 
170    CJ^TI'v^ 

Calculate   p««   LI«   CSU'.t,    lI"»k    SPee^<    a\D   pa*   3CCupa\cv 

CALL    utTiv(LC?/ IA, ICC?) 
3LM-.C    ■    RL^C    ♦     1CC2 
CALL    maLF(^a-,SP,  IA,  IrS-P] 
LS<SP    •    LNKSP    *    IRSkP 
CALL    haLFHAaBC,  IA,  IR6C) 
^L'-KB    •    ><LM«9    *    I»9C/16 
^3    T3    IV 

P^BCESS    BEUINNI-SO    BE    PULSE 

18.    CBMTI.uE 

1STRT  ,  TSTKT(lA) 
CALL  PTSI ( 1STRT.1. j»G> 
IPLS  •  »TC  •  ISTKT 
IF<IPLSi3E>0)  "9  Tb  ,93 

CB^fENSATE  F9«  RTC  BEI>iG  RESET 

IPLS  ■  IPLS  ♦  ISPI 

SEE  IF  P^LSE  IS  ».ITHIN  UPPE«  AND  l_9*ER  TIME  LI-1ITS 

130  C9M[\uE 

IF( IPLS.LE.TT3)  SB  T9  200 
IF( IPLS-3T.TT7)  U9  TB  160 

SET  P8S3IBLE  0ETECT9R  BoSTRUCTIUN  FLAG 

CALL  PTBI (PU9F,  IA,l,c) 
u!  19  170 
200  CeNTlNLt 

CLt>R  POSSIBLE  GETECT8R  93STRUCT I e^  FLAb 

CALL  PTBI (PU9F, |A,Jl3l 
G9  TB  150 
210  C3^T1  .U 

EXIT  PRBCESSINS 

E\TFL<2)  •  JTL -3 
IFIDTf.S.NEO)  G9  TB  223 
£\IFL(i)  ■  LXL-,G 
IF(C*L-  J.^L-D  3T  T9  23C 
-ll  T|,«-J 

22.  C9MI  ._£ 
E\TFL(  ■)  .  C-L-3 

SET  rLA0  F35  SCmLJOLIVJ  »t\< 

23.  C9\TI  ,..E 

IF  (DTlI nG«Cml\5  .GT.  3)   m»ST(kv»ST)  .  i 

■<ETJR  . 

FV3 


2 

1"8 

2 

199 

2 

230 

2 

231 

2 

202 

2 

2"3 

2 

23« 

2 

205 

2 

20A 

2 

207 

? 

209 

2 

209 

2 

210 

2 

211 

2 

21? 

2 

213 

2 

21* 

2 

215 

2 

216 

2 

217 

2 

218 

2 

219 

2 

220 

2 

221 

2 

222 

2 

223 

2 

2?» 

2 

225 

2 

226 

2 

227 

2 

228 

2 

229 

2 

230 

2 

231 

2 

232 

2 

233 

2 

23* 

2 

235 

2 

236 

2 

23  7 

2 

238 

2 

239 

2 

2*0 

2 

2»1 

2 

2»2 

2 

213 

2 

2»li 

2 

2*5 

2 

2»6 

2 

2»7 

2 

214? 

2 

2"9 

2 

25^ 

2 

251 

2 

25? 

2 

2o3 

2 

25» 

2 

255 

2 

256 

2 

257 

2 

258 

2 

259 

2 

260 

24 


2.6.  13    ROUTINE  F 


RBUTI Mt i 


C  •  RTNF 

SJSRBdTI'-IE  RTNF 
C....  -OUTI'vt  F    LI'-K  V9LJME,  PCCUPANCY  An.H  SPEED  EVALUATION. 
1MEUEK  AHCL,  AhCC*»  AHIST,  AHST",  DFAIL,  OFaL", 
1  OACC,  8ACC,  PC8T  ,  RLNKC.  RLNK8,  SACC  ,  SACC", 

7>  SBAH,  SHAR",  TEMPl»  TE»P2»  VACC  ,  VACC",  VhIST,  jHS 

1  V8L  ,   V8L*  I     VPHT 

Cb^fB:..  /UL<1*/   CLENu        .   DTLN'S        ,   CMlN!i        , 

•  3JHY1,  DUMY2»  CNTLM372)«EvrFL.<5)« 

•  <C|_(17)<  <CTF(l7)»  KCSF(17)i 

.    V"1VAR|31)  »       SE"SK(S)  ,       VRI\T<123>       I       LNKPTI64) 

C8"W8\    /BLK19/    CC2<129)«     DFA|L(69)«     DBF(17)» 
.    il[3li  ,       RAi.BC.l258)       .       BA„SP(?58|       ,       RTC  i 

•  TSTRT(5l6> 

CB^NBn  /BL<23/   EXTGF(S)     ,   IhIBE        <   LK'KSP        < 
.  NI,  8ACCUJ8),  RLNKO  RLNK8,  SACC(138)»  STPTm,  vACC(138l< 
•TRJFF( 1655) 

EfllfSN  /BL<2»/  AHISTI13B1,  CK.DIS,  DCF, 

•  OB*  i  F1T9D  ,  FSTFL  <  HLIDF  » 
.  HLIDT(<*6)  ,  NHUAY  ,  PriCfl'J  I  PTM705)  ( 
.  SHTFt.  SROIS,  THRSH,  VHISTU38) 

CBi.iBN  /BL<25/  AHCC1138).  CI"MAL(17)»  Cf,TAB(258)» 

•  JTTAB,J58)   »   DIS1171      ,   0MALF(17I    ,   0M8DE        , 

•  FLTABiROO)   /   HRF  ,   MBDES        ,   MAI  , 

•  N8FAL,  SBA"(63)/  StCFC(*)<  SCDFC(»),  v8L(138l 
C81h8-;/FANJH/   KVl,  LL9N,  N 

C91NBN.  /RTN&F7  10,  IL 

JATA  Kvl,  <VPH,  <PC8,  KSP  * 

x    /   »5,     li      1j    1/ 
C  ?D  HEX 

3ATA  .'.,  LL3VI  /6I»»  1199/ 
C  6»«1199  ■  7673f,  •  12BC0  HEX  •  1.1709  AT  BU 

CAUL  CilTBYi  JFAIL,  IL»DFAL") 
IF(DFAl*.EJO)  38  T8  2 
1     CBNTINoE 
Co..  rtr«E  IF  EITHER  A  FaILU«E  IS  PRESENT  BN  LIN<  9R  FAlLURr  "AS 
C      C9*RECTED  tf^LY  F8R  8.\E  CYCLE. 
CALL  ^ALFt ,"!ST, IL,vhSTW) 
CALL  PTHLFi V8L/ IL, VMST*) 
CALL  "ALF( vACC, IL«vACC*l 
VACC"  •  (KCL(  Ib)«VhST».)/l»»C;a  ♦  VACC* 
CALL  PTHLFl VACC,  IL,  VACC") 
CALL  HALFIAHJST, IL, AhSTw) 
CALL  PJHLF(ahCC, IL,ahSTW) 
CALL  m«LF[8ACC#  ICHACC-) 
SACC"  •  »HST»»KCL(IB)/2»«11  ♦  8ACC" 
CALL  PTHLFlBACC,  lL,8ACCiv) 
TE^Pl  .  16JSA/AHST" 
TE^PS  •  VHSTiv'oKvl/3600 
SBARw  .  TEiiPl«TEMP2 
CALL  PTBY(S»AR,  ICSBAR") 
CALL  haLF|SACC  ICSACC-) 

TE-1P1  ■  (  16384/AHST»)«(1638*/N)«KCl(  IB)»M/LL8N 
SALC-  •  T.E«PUTFMP2  ♦  SACC* 
CALL  PtmlF(SaCC,IL,SaCCw) 
u9  TB  3' 
C...  he"E  IF  ^  fAjLJRE  "AS  PRESENT  FBR  MORE  THAN  BNE  CyClF. 
Z  CBNTINlE 

CALL  MALF( VACC, IL, VACC") 

VPHJ    .  RL'vUC/NI 

vACC«  ■  VACC-  ♦  VPhT 

CALL  PT-iLF(VACL.lL/VACC") 

PC?T  •  (RL  -^H/'-I  )«(l63o»/R!)»356  /Ll9'. 

CALL  n.LF  (BACC,IL,BACC») 

iACC-   •  BACCa  ♦  PCeT/f 

CALL  PThLF[BACC,  ICBACC") 

CALL  "ALF (SACC, Ilj SACC-) 

SaCC"  •  iACC  .  L'.<SP 

CALL  P1HLF(SACC, IL,SACC«) 

C»LL  "ALF( *BL,IL<V0L") 

V5L»  •  V-.<L<.  *l  (l*t'-.C/KCL(  IB)  •  VPHT  .  V9L»)/2  •  KVi-H)/? 

CALL  PTHLP (V9L, IL,v8L«) 

CALL  HALF!  AHCC,  IL.AHCCM 

AHCC«  .  AhCC.  ♦((PCBT/KClIIB)  •  512  .  AMCC")/?  .  «PCe>/2 

CALL  PTHLF(AHCC,IL«AHCCH) 

IFIRL^r^CEJ'-j)  GB  TB  3 

TE^Pl  •  (L^»SP«KV1  )/(RLN<C«254l  •  (Ll_9\/6*> 

CALL  3ETBYISBAR, Il.SBARk) 

SBAR^  .  SBA*.  ♦  (TE"P1  -  SBAR")/2  •  kSd 

CALL  PTBY(SBAR, IL,3BAR") 
3     C9NT!,vuE 

RETuR'i 

EMJ 


3 

1 

3 

2 

3 

3 

3 

» 

3 

5 

3 

6 

3 

7 

3 

8 

3 

9 

3 

10 

3 

11 

3 

12 

3 

13 

3 

1* 

3 

15 

3 

16 

3 

17 

3 

18 

3 

19 

3 

20 

3 

21 

3 

22 

3 

23 

3 

2* 

3 

25 

3 

26 

3 

27 

3 

28 

3 

29 

3 

30 

3 

31 

3 

32 

3 

33 

3 

3» 

3 

35 

3 

36 

3 

37 

3 

38 

3 

39 

3 

»0 

3 

M 

3 

»2 

3 

•3 

3 

»« 

3 

»5 

3 

»6 

3 

»7 

3 

»8 

3 

»9 

3 

50 

3 

51 

3 

52 

3 

53 

3 

5» 

3 

55 

3 

56 

3 

57 

3 

58 

3 

59 

3 

63 

3 

61 

3 

62 

3 

63 

3 

A* 

3 

65 

3 

66 

3 

67 

3 

65 

3 

69 

3 

7" 

3 

71 

3 

72 

3 

73 

3 

7» 

3 

75 

3 

76 

3 

77 

3 

78 

3 

79 

3 

»3 

3 

81 

3 

92 

3 

*3 

25 


2.6.  14    ROUTINE  H 


ROUTINE!       "TNH 


c 

.     KTNi 

SJMRBUTINE  XTNH 

c 

STNH  IS  THE  CBNTR9i_  8F  ALL 

c 

c 

IM"UT 

c 

c 

OUTPUT 

c 

N8NE 

c 

'H>  SUBROUTINES 


INTEGER  BIND  ,CTABL/0ATE  #0BuF  ,FMT8D,hD11  ,HD21 
1         HMAST,PAGNM,PRTFL»PRvD»PTNHC,ShTFL«TIME 
INTEGER  MRF 

D1MENSI9N   TImE(»)   ,CTA3L(2?0>»    0BUF[3;> 
1.h3H(12)»   HD2K9)/     hD31iS)»    hd*1(9) 
C9Mr-1eN/HODS/HDli/HD2i 
C8MMBN  /HSuBl/  TIME 
C9MM8N/HSU32/BINCCTABL/  IBL 
C9MM0N/HSUeJ3/IBLNK,  IT1S 
COMMON  /MSJBi,/  IBR,I8PF,1T1N0X,  IDCT 
C9MM9N/MESA<i/IBNDX,LCNT,  [Rl 
C9MM0N/HBL<1/P*GNM 
C8MM0N/MBLK3/RTNHC 
C9MfBN  /BL<6  /   F1C 

JMAST 

<MAST 

MP8KY 

HS&15I32) 


»hD31 
T8SU 


»mD»i  i 


,8NCS/NBCNT(4!» 


FMARK 

KMAST 

QMAST 

OCNT 

1G1S16A) 


MASTI9) 

EmaST 

ImaST 


MMAST 

H1AST 

•  SPACE        * 

C8MMSN  /BLKU/ 

a  lnkdi <6»i»nd9L(69> 

•  TBSU 

CBMMBN  /BL<12/  0(138)»  DAYMK,  JJ, 

•  LNKSIiS)  ,    PATNM13N   PKTFL  /   SCnSI<2>« 

•  SCCNT<29)/SSF» 

C81MBN  /BLK21/  AHIST<138>»  CnDISi  0CF# 

•  D8w  ,   FMT8D        j   FSTFL        t       HLIDF 

•  ML1DT(96)    ,   NHOAV        ,   PRC8D        <   PTN(7»5l 

•  S"TFL*  SROlS.  THRSM,  VHISTI138) 

C81M9M    /Bc<25/    AHCCU38).    CMmaL(17>>    C^TaB(258). 

•  3TTA3(258><    DISH7).    DMALF(]7)j    DM9oE» 

•  FLTASl800)»    HRF»    M8DES,    NAI, 

•  N9FAL,    SB»«(69)»    SECFC(»)»    SCDFC(»)»    v8L(13B) 

C8MM8N  /BL<26/   DATE13)      >   PRVOOI      »   LPBUF(1B->6I 

ESJIVAlENCEIOBuFII )/LPBUF<l766) ) 

DATA  Hu31/'   CMi. "ANQE'i 'S  Sp.'NCE  >»'LAST>,i  REPi,i8«T  ' 

BATa  M041/iTIME'»  '     ',iTYPf_i,i    Nil  >UMBE'»  ■*    <>'         O 
l'E    V 

gRANCM  T8  RTNH  E'fTRT  PBINT 

G8  T8  HO 
1  CBNTINuE 

SET  DATE  AMJ  TIME 

CALL  TIMEH(TIME) 

D8  3  1.1.3 

PRVOI  I  I    •  HU21  (  1*2) 

HD2KW2I  «  T I  r.E  <  I ) 

STORE  PREVIOUS  DATE  AND  PUT  CURRENT  DATE  IN  HD21 
J  CBNTINuE 

HD2H9)  •  TIMEd.) 

SET  BRANCH  INDICAT9H 
•&9  T9  <5»7)i IB* 
5  C8NTI.NI.E 


16 

1 

16 

2 

16 

3 

16 

« 

16 

g 

16 

6 

16 

7 

16 

8 

16 

9 

16 

IC 

16 

11 

16 

12 

16 

13 

16 

11 

16 

15 

16 

16 

16 

17 

16 

IS 

16 

19 

16 

25 

16 

21 

16 

22 

16 

23 

16 

21 

16 

25 

16 

26 

16 

57 

16 

28 

16 

29 

16 

IC 

16 

31 

16 

32 

16 

33 

16 

31 

16 

35 

16 

36 

16 

37 

16 

38 

16 

39 

16 

»o 

16 

"1 

16 

»2 

16 

»3 

16 

hi* 

16 

»5 

16 

»6 

16 

»7 

16 

»5 

16 

t9 

16 

51 

16 

51 

16 

5? 

16 

53 

16 

5» 

16 

55 

16 

56 

16 

57 

16 

58 

16 

59 

SAVE  T!  1E  8^  START  UP 
T9Su  •  TICE  f *) 

I  ax  •  i 

7    C9NTlNuE 

TEST  FUR  F8KCEO  PRINTOUT 

IFIPP9K.Y.NE-&)  GB  T8  ?0 

IF(PRTFL.NEO)  GB  T8  20 

SIND.2 

G9  TB  101 
IC  C9NTI  iuE 

SET  BRANCH  INDICATOR  FOR  Ll^KD'T 

BIND  •  7 

G8  T8  90 
2'J  CBNTINuE 

OEOICATE  LINE  PRINTER 

IFI  IDCT'NE'C)  IjB  TB  2ul 

1DCT.1 

CALL  CAL15 

TEST  STATE  OF  LINE  PRINTER 
201  CONTINUE 

CALL  TSTLPUER*) 

IF( IERR.EG.1 I  G9  TB  10 

IFl IBPf .NE.O)  GB  TO  25 

CALL  8LT2GI  ITI'-DX,  IBPF) 

RETURN 
2b  CBNTINuE 

Z£R6  PAGE  NUMBER  AnD  LINE  LBUNT 

IDCT. j 

PAGNM  .  0 

LCNT  .  0 

BIND  ■  BINO  ♦  1 

TEST  FbR  AnT  ENTRIES 

IFI IBL.NE.01  GO  T8  30 

BIND  •  BINO  ♦  1 

38  TB  101 


16 

6J 

16 

61 

16 

62 

16 

63 

16 

6« 

16 

65 

16 

66 

16 

67 

16 

6» 

16 

69 

16 

7? 

16 

7! 

16 

72 

16 

73 

16 

71. 

16 

75 

16 

76 

16 

77 

16 

78 

16 

79 

16 

80 

16 

81 

16 

"2 

16 

83 

16 

B» 

16 

15 

16 

86 

16 

87 

16 

IB 

16 

H9 

16 

90 

16 

11 

16 

92 

16 

93 

16 

9  k 

16 

95 

26 


C         CHANGES  SINCE  LAST  REPORT 

C 

3^  C9nti-,uE 

CALL  "HEAD 
50  C9NT|nl,E 

IRl  •  I Rl  ♦  52 
C      STBHE  jRD  LINE  BF  HEADER   • 

I9*"T  •  2 

MBYTE  •  31 

CALL    Sr-ISGl  I9PT,  !8\DX,LCNT,  IR1,H031,\PYTE) 

19BT    •    » 

CALL  SMSGl  I9PT, ISNDx#LCNT,  l«l.HD31» NPVTE ) 

1-11  •  IRl  ♦  S 
C      STORE  *TH  LINE  9F  HEADER 

\8TTE  •  36 

19PT  •  2 

CALL  STlSGl  19PT,  IBNOXjLCNT.  IK  1 ,HD41, NBYTE ) 

I9PT  •  1 

CALL  STMSGl  IOPT.IBNDx.LCNT/  IRI.HDM'NBYTE) 
C      INITIALIZE  CHANGE  TA9LE  INDEX 

]=>r,    .  a 
60  CSNTpJot 

DBUFI1 )  ■  CTAbL( IRb*l I 

D3UFI3I  •  CTABLI  1^5  +  2 ) 

DBUF(S)  •  CTABLI IRi*3> 

0BUFI8)  *    CTABLI IR5+4] 

OiJFOl  ■  CTAR.LI  IRj»5) 

CALL  PT3T(LH»uf,lRl.IT15) 

IS1  ■  I"I  ♦  1 

xBYTE  .  36 

I9HT  .  5 
Z  ST9KL  LHANGE  INFBSi'ATIBN 

CALL  ST1SGI  I"PT,IBnDx»LCNT»  1 91 ,  DBUF,  nPYTE  ) 
C      INCREMENT  CHANiiE  TABLE  (CTAtJL )  INCE» 

1-35  •  1R5  ♦  5 

IBL  .  IBL  -  I 
C      TEST  AsD  BRA\C-  IF  «9Rt  CHANGES 

If  I IBL.NE.C !  Ge  T?  60 
C      PRINT  PAuE 

CALL  P~NTF|LCNT) 
C      SET  SERVICE  FLAG 

MAST  (Hi  AST)  •  i 
C      TEST  FBR  FOHCEU  PRINTOUT 

IFIHPOkY.NEO)  GB  TB  70 

BIND  •  BIND  ♦  1 

RETURN 
70  CSNTI'JuE 

"POKY  •  MPSKY  -  1 

C     SE'  branch  inoicatbr  fbr  exit 

BIND  •  8 

RETURm 
C  THIS   IS  FIRST  ENTRY.  SET  IRl  TB   CLEAR  lPBUF 
HO  CONTINUE 

09  85  IO.1806 

LDBUF| I )  •  IBLNK 
85  CONTINUE 

IRl  ■  1 

U9  T8  100 
C      NORMAL  ENTRY  T3  R9UTINE 

90  CONTINUE 
C      CLEAR  1ST  F8UR  LINES 

I9°T  .  S 

IRl  ■  532 

CALL  ST-SGllOPT,  IBNDx.LC>IT.IRl,DBUF.NBYTEl 
UO  CSNTlNuE 
C      INITIALIZE  PARAMETERS 

IBNQX  .  1 

IR15  •  192 

LCNT  •  0 
C      SET  INDEX  FBR  HTNH  END  ACTION 

RTNhC  •  C 

101  CONTINUE 

u9  T6(t<102» 10* « 10»» 105.1 05<107' 108), BIND 

102  CSNTlNuE 

C      RE'uRiJ  HERE  IF  PRINTOUT  IS  SUPPRESSED 
CALL  LivDATl IRET) 
IFI  IRET.EC1  1  RETURN 
IF  I  IRET. EC- 1  3)  GB  T9  ]08 

103  CSNTI'.oE 

C      SE'  JBPT  FBR  FAILURE  STATUS  PAGE 

J9PT  •  1 

CALL    STATl JBPT. IRET) 

IFI IRET.EQ.2I    uB    T9    90 

IF! IREI.5T.0)    RETURN 
10<t    CSNTlNuE 
C  SET    JBl-T    FBR    CBNTRBLLER    STATUS    PAGE 

uSPT    •    2 

CALL  STATl jBPT. IRET) 


IFI IRET.EQ.2)  ^9  TB  90 
IFI IRET. jT.O)  RETURN 

105  C9NTlNuE 

SET  JOt^T  FBR  DETECTBR  STATUS  PAGE 

u9°T  ■  3 

CALL  STATl JBPT. IRET) 

IFI  IRET.EG'2)  GO  TB  90 

IFI  IRET. liT.O)  RETURN 

106  CSNTlNuE 

SET  JOHT  FBR  SYSTEM  STATUS  PAGE 

U9PT  •  <t 

CALL  STATl J«PT, IRET) 

IFI IRET.EC.2)  o9  TB  90 

IF( IRET.GT.O)  RETURN 


16 

<5& 

16 

97 

16 

98 

16 

99 

16 

00 

16 

01 

16 

02 

16 

03 

16 

0» 

16 

?5 

16 

"16 

16 

T7 

16 

)8 

16 

09 

16 

1C 

16 

11 

16 

12 

16 

13 

16 

1* 

16 

1  = 

16 

16 

16 

1  7 

16 

18 

16 

19 

16 

20 

16 

21 

16   1 

?? 

16   1 

23 

16   1 

?* 

16   I 

25 

16   1 

'6 

16   ] 

27 

16   1 

2« 

16   1 

29 

16   I 

*: 

16   I 

31 

16   1 

3? 

16   1 

33 

16   1 

3fa 

16   ] 

35 

16   1 

36 

16   1 

37 

16   1 

38 

16   1 

39 

16   1 

*C 

16   1 

M 

16   1 

12 

16   1 

»3 

16   1 

u  fa 

16   1 

»5 

16   1 

»6 

16   1 

»7 

16   1 

te 

16   1 

«9 

16   1 

5; 

16   1 

51 

16   1 

5? 

16 

53 

16 

bfa. 

16 

Ts 

16 

58 

16 

57 

16 

5s 

16 

59 

16 

*>~ 

16 

51 

16 

52 

16 

43 

16 

6  fa 

16 

65 

16 

66 

16 

67 

16 

SO 

16 

69 

16 

70 

16 

71 

16 

72 

16 

/3 

16 

7» 

16 

n 

16 

76 

16 

L77 

16 

17B 

16 

79 

16 

ISO 

16 

IM 

16 

1*2 

16 

1*3 

16 

It* 

16 

135 

16 

1*6 

16 

1»7 

16 

1»» 

16 

189 

16 

190 

16 

1"1 

16 

192 

16 

193 

16 

19* 

16 

195 

16 

196 

16 

197 

27 


U'7  CBNTINuE 
C      LINK  DATA  PAGE 

OIL  Li>DAT(  IRfT) 

IF( IBET.EQ.l)  RETURN 
Ijb  CBNTINoE 
C         BUTPUT  *BE  TAPE 

CALL  Bt.TAPHERW) 
UJ  CJMTINuE. 
C      'ESET  bR,»NCH  INBEx 

hIMD  ■  j' 
C      SET  IMiiEW  F9R  *>TNI  END  ACTIBn 

RTNhC  •  ,1 
C     RELEASE  LINE  PRINTER 

CALL  CaLRL 

!9PF»C 

MAST(ir.AST)»0 
C      SCHEDULE  RT1  I  IF  MIDNIGHT 

IFIFMTbD'.EU'O)  GB  TB  120 
C      TEST  FS"  ShUTDBkN 

IFISHTFL.EQO)  RETjRN 
123  C9*iTIiJuE 
C      SCHEDULE  R8UTJNE  I 

MASTIlMASTl  •  1 

RETURN 

END 
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19S 

16 

199 

16 

200 

16 

231 

16 

232 

16 

233 

16 

231. 

16 

235 

16 

236 

16 

237 

16 

238 

16 

239 

16 

210 

16 

211 

16 

212 

16 

213 

16 

21» 

16 

215 

16 

216 

16 

217 

16 

21? 

16 

219 

16 

22r> 

16 

281 

28 


2.  6.  15    SUBROUTINE  CAL15 


RBUTlN.t:       UU5/STLP 


.       • 

CALlb»ST[_P 

1* 

1 

DEF 

LAL15 

It 

? 

• 

T-i|S    RfcJTpE    INITIATES    STflP    I/B    Fft»    It'E    PRIMTFjR 

It 

3 

DEF 

STlP 

1* 

t 

REF 

«:ub 

1* 

5 

CALlb 

RES 

Q 

It 

6 

Cal1."5 

STLP 

It 

7 

B 

•15 

It 

8 

SUP 

&En>8,7< 

17         X'0E'»8»wA(>1IL81 

It 

9 

ENL 

It 

10 

29 


2.6.  16    SUBROUTINE  CALRL 


RL'UTl  ill       C»L"L>STRLP 


CALRl/ST-<LP 

DEf  CalRl 

This  ROUTINE  RELEASES  LI\E  P«INTEB  i/e 


oef 

STRLP 

REF 

I-IL9 

RES 

0 

CALli 

5 

STRLP 

b 

•15 

SEN** 

/?» 

x'or 

EM 

30 


15 

1 

15 

2 

15 

3 

15 

it 

15 

5 

15 

6 

15 

7 

15 

B 

15 

9 

IS 

IP 

R?JTl  si.'- 


2.  6.  17    SUBROUTINE  DECON 


decs.. 

SJBROuT  INE  DECf'NINuM,  ISF.  ]VAD 

THIS  buRRBOTlNE  TAKES  *  SCALfD  BINARY  NUMBER  AND  CONVERTS  f  A 
„h0LE  vulBEX.  ThEN  CONVERTS  ThE  NUMBER  TO  COMPUTER  CODE  jITh  A 
PE^IOJ  I  I  LAST  BYTE. 

CONVERTED  njhue*  IS  s»tseiJ  |S  the  FIRST  SeVcn  BYTFS  WITH 

A  HrRIODl.)  I\  The  rlUHTH  BVTE. 


jnpuT 
ISF 


3'jTPJT 
IVAL 


SCALED  BINARY  NUItiFR 

BI wary  scale  f»ctbr 


CHmvERTej  Cnf'PJTtR  CODE  For"  SCALEC  BI.jARY  number. 
RIGHTMOST  CHARACTER  IS  A  PERIOD, 


INT£U£„  CHSET 
RE»L  JPER 
OPENSlSi  I^AL 
COMMON  /dL«.15/ 
.  '1NUMF         / 

•  \ChND        < 

•  NlSCT        . 
.  NRESP        , 

•  CS  < 


U> 


HBUFL 

Ncwaa 

NHC1L 

NPATB 

TBSI2 

FS 

SS 


CHSET 

NBMCm 

N*ANP 

NMvEO 

NSTM1 

DS 
•OS  .   RS 

EQUIVALENCE  (IPER.JPFRI 
DATA  JPER/'CDu'  •/ 
13  ■  U 

Calcote  sbjndbff  constant  an 

\JM  ■  lOtNO"  ♦  2«<ISF-1> 
njm  •  i>un/2*»ISF 

CONVERT  dlvARY  NUMBER  <  ;-Ow  SCALED  TO 
CALL  EISRTinuh, IVAL) 

SHIFT  TH£  FIRST  EIuhT  BYTES  ONE  BYTE  T 
PE"*IOO(.)  IN  THE  EIGHTH  BYTE. 
DO  3u  ,J«1»6 
■,  ■  J*  I 

CALL  StTtfYI IVAL.K.L) 
CALL  PTBYI IVAL. J.L) 
33  CBNTlNut 

CALL  CitTBYl  JPER»»»  ITE'P) 
CA.L  PTBY(IVAL«7»ITEMPI 
RETURN 
ENJ 


I3PI 

NC*D? 

N'-1LN< 

NPBk 

TBYTE 

NS 

SCS 


ADD  »TO  BINARY  NUMBER 


PC) 


TO  COMPUTE" 
THE  LE^T 


ME. 
D  PLACE 


30 

1 

30 

2 

30 

3 

30 

» 

30 

S 

30 

6 

30 

7 

30 

9 

30 

Q 

30 

10 

30 

11 

30 

la 

30 

13 

30 

i» 

30 

is 

30 

16 

30 

17 

30 

18 

30 

19 

30 

20 

30 

21 

30 

22 

30 

23 

30 

2» 

30 

25 

30 

26 

30 

27 

30 

28 

30 

29 

30 

30 

30 

31 

30 

3? 

3D 

33 

30 

3D 

30 

35 

30 

'<6 

30 

37 

30 

38 

30 

39 

30 

"0 

30 

"1 

30 

»2 

30 

13 

30 

»» 

31 


2.6.18    SUBROUTINE  E1SRT 


R8UTBIE:      ElS«T 


E'ISRT 

SJSHBur 
THIS  Su 

the  ca\ 

l>!  'h  T 
f-ITh  T 

RESULT 
FIRST 

INPUTS 

CHSET 
ChSET 

nbmCh 

NBMCH 
^BMCh 
NUM 

BJTPUTS 
IVAL 

INTEGEw 
OI-IENSI 
C9MM8N 

•  MNUMF 

•  NCWRD 

•  \1SCT 

•  NRESP 

•  cs 

•  QS 
DATA  IB 
NJ1  •  1 

as  5  i. 

IVAL(l) 

cb^tinu 

SET  I'.I 

L  ■  8 
IFINUM. 
ViJMBER 
BY  VALu 

CALL  PT 
66  T9  1 
teNTlNL 
PfRFSRr 
|  •  NUN 
J  •  NUN 
•T9RE  C 
CALL  at 
CALL  PT 
TEST  F6 
IFII.Ei- 

N,01   .   I 

L  ■  L  - 
GB  TB  1 
1UO  C8NT1:„L 
RETURN 


INE  ElS^Tlp.OM.IVAL) 

3RBJMNE  C8«VCRTS  A  BINARY  NUMBER  TB  ASCII  dR  FBCDIC  C8DE. 
VERTED  '-UMBERS  ARE  STORED  INTB  THE  ARRAY  IVAL  BEGINNING 
E  E-I«hT  BYTE  In  The  array  AND  ARE  ST9RE0  IK  REVERSE  SRDER 

E  K£XT  CHARACTER  IK  THE  SEVENTH  BYTE  AND  SB  BK.  T IE  FINAL 
"ILL  BE  THE  CBNVERTED  NJ1BER  STBReO  RIGHT  ADJUSTED  Ik  TMf 
IClHT  BYTES  BF  THE  AHRiV. 


30  DEFINES  ASCII  CHARACTER  SET. 
FO  DEFINES  EBCDIC  CHARACTER  SET. 
16  DEFINES  16-8IT  MACHINE.      • 
24  DEFINES  24-BIT  MACHINE. 
32  DEFINES  32-BIT  MACHINE. 
BINARY  NUMBER  SCALED  AT  BO. 


•  CBKVEP 
ARE  BY 

CHSET 
8N  IVALU 
/BL«.15/ 


TED  CHARACTERS  FRBM  BINARY  NUMBER. 
TES  RIGHT  ADJUSTED  Ik  THE  ARRAY. 


THF  CHARACTERS 


) 

CHSET 

NBmCh 

N-1AKP 
NMvED 

NSTri 

DS 

RS 


HBUFL 

NCW22 

NMCTL 

NPATB 

TBSIZ 

FS 

SS 


IGPI 
MC.D2 

N-LNK 

NPb<» 

TByTE 
NS 

scs 


89 


LNK/' 

KUM 

1j* 

•  IBLKK 
E 
TIAL  IVAL 

GT.9)  G'J 

IS  SINQLf 

E  8F  CHSE 

UH  ♦  CHSE 

BYdVAL.L 

00 

E 

CB  <VERSI 
/10 

«  10«!  * 
BNVtRTED 
TBY( J,4» I 
BYdVAL.L 
R  CBMPLET 

0)  liB  TB 


BYTE  L8CATI9K 


TB  10 
DIGIT.  CSKvrRT  T8  ASCII  BR  EBCDIC  C8DE  DETERMINED 


BN 

CHSET 
DIGIT 
TMP) 
»ITMP) 
I8K  8F  C9NVERSIBK. 

loo 


46 

! 

46 

? 

06 

3 

>6 

4 

46 

5 

46 

6 

46 

7 

46 

5 

46 

9 

46 

10 

16 

11 

46 

12 

46 

13 

»6 

14 

46 

15 

46 

16 

46 

17 

46 

18 

46 

19 

46 

20 

46 

21 

06 

22 

06 

23 

46 

24 

46 

25 

16 

26 

46 

27 

46 

28 

46 

29 

06 

30 

46 

31 

♦  6 

32 

46 

33 

46 

34 

06 

35 

16 

36 

46 

37 

46 

3« 

46 

39 

46 

40 

46 

41 

46 

42 

46 

43 

46 

44 

46 

45 

46 

46 

46 

47 

46 

48 

46 

49 

46 

50 

46 

51 

46 

52 

46 

53 

46 

54 

46 

55 

46 

56 

46 

57 

32 


2.6.19    SUBROUTINE  LKD AT 


LKDAT 
SJSHOuTIne   UDHIIt'ri 

Isr£(jE>  MMAST 

IMTEGE*  AHIST,AVSP  ,)  ,UBuF  ,OEL»  .HELP  t GF» IL/ 6»CC  ,9DAY  » 

BPC   »S*CC  ,SDAY      »TBUF  ,TE«P  ^TRT^  ,TVPLS, 
YACC  »v(5*v  »VhIST/»KAST.TBF»T,TeS!Z»nD12  /  *D2»  » -*D3P  » 
-*Dk2  ,-D52  .-1062  ,"blZ    / DELAY, RRTFL. STrf   »xTlP 
T  HL  «  DATE  ,  TBjFF,TE~>P,  BIND 


! vTEOEr 

-  I "ENS [9N  HU12I8) 


HD3ai6i 

HD72H9) 


FMARK 

KMAST 

QKAST 

OCNT 

I ul5  i  A"  I 


D-LP( 171 


HDaaiM 

HD62I7) 
DI1ENSI8N  IYALlk)»X<») 
C9"IM9N  /BL<6  /   FMC 
.  "'■'AST        i   J1AST 

•  -HAST        ,   «*1AST 

•  SPACE         J   MPtiKY 
C9~>M8\  /BL<11/   HSB15I32) 

2  L^KDI  (6»>»'»C>8l.<69>»N8NCS»  NBCNTlk  ) 

•  TBSu 
CS-'f-b  .  /BL<12/  0(1381,  DAY»K,  JJ, 

•  LNKSI(3),  HATNr.OI,  PRTFL,  SCNSII2) 

•  SCCNTt29),SSF« 
C31K8,  /BL*13/   D^L(259I 

1  FTAB.  FTB.JU,  "6EIF(69> 

CBlfSN  /BL<15/  CHSET  ,  HBUFL 
NBmCh  ,  NCJ22 
NMANP  ,  NMCTL 
NIvED  «    MPATB 

NST>U         ,   TBSIZ 
DS  .   FS 

MS  ,   SS 

C31M8N  /BLK19/  CC2U29),  0FAILI69).  r.BF  (17) 

•  "1(311       ,   RA„8C(258>   ,   RA»SP|?58| 

•  TSTKT(5l6) 
C9rM3'J  /BL<23/  AVSP,  DLDAY(H8) 

1  9*1,  SDAY(138),  V0AYI138) 
CB^MB'i  /BL<23/   ExTGF(9) 

•  Nl,  9aCC(138)«  RL'JKC,  RLN»B 
•TBJFFi 1655) 

«MI5T(t38)J  LNDIS,  DCF, 
F1T6D        ,   FSTFL 
NHDAY        ,   PRC80 

TW9SH,  vHIST(]3o) 
DATE ( 3 1      ,   PRVDI31 

KYI,  LLBN,  NN6N 


HCk2<7) 
DBUF ( 1 ) 

.   "ASTI91 
t      E*AST 
,   I-AST 


,-iD52M 5) 
,  T  I  -IE  (  k  ) 


'IMU1F 
\Ct.RD 
M-SCT 
\KESP 
CS 


NSDayi 1381 


ImIBE 
SACCU3B), 


C3-"i8N    /dL<2k/ 

•  DHtl  , 

•  HUIDTI96)  » 
.    SHTFL,    SRDlS, 

CS-'I-BN    /tiKdb/ 

C91M8N/FANDH/ 

C9*lMBN/HSL-dl/TI>-E 

C9-1fB-i    /MSul?/    BIND.    CTA3LI2P3)'     IBL 

CSlMBN/HSUi  3/IBLNK.IT15 

CB'niBN    /"Sj06/    KY2,TBFPT,DELa,DELP,  NPAjE 

CS'IMBN/  1ESAJ/IB\DX,LCNT,  IRJ 

C3lM9\,/HBLrf.l/P*GN* 

E'JUlY  -,_E  ,CE(DBLF,LPBUF(1766)  ) 

DATA    STR/'.H       '/ 

DATA    Hul2/"JTCS'  ,  <    SYS'/'TE"    ', 'PERF i , '8RMA' 

DATA    HC22/'     9UT','     8F    ','  !»■  i,'    HIS' 

DATA  Hj32/'LJRRi , 'ENT  • » ' CU"J ' < ' LAT I ' , • VE  ►» 

DATA  Mt,»2/'TgLE'» 'HANC. 'E    ','    Y'.'Bl   ' 

.)AIA  h^52/'V9L  '»•  '/'BtC  ','  ','  ' 
l<  ','      ','     A','V.SP',i.     ','TRAV',', 

2   '/ 


E9DC 

IGPI 

\C«D? 

\HLNn 

>Pb» 

TBYTE 

NS 

scs 

RTC 
8JAY(l31i,  ?( 

I.NKSP 
TH,  VACCII38X 


HLIDF 
PTM7H 


LPBUF( ia„6l 


.MCE  • 
■T9RY- 
'BE   ' 


•REP9 l 


18 

1 

1* 

? 

IS 

3 

18 

k 

16 

5 

18 

6 

18 

7 

le 

a 

18 

9 

IB 

1C 

18 

11 

18 

12 

18 

13 

18 

1» 

IB 

15 

18 

16 

18 

17 

18 

18 

18 

19 

18 

23 

18 

21 

18 

?? 

18 

23 

18 

2k 

18 

25 

18 

2A 

15 

27 

18 

28 

16 

29 

18 

3: 

18 

31 

18 

32 

18 

33 

18 

3k 

18 

35 

18 

36 

16 

37 

18 

3» 

16 

1  = 

18 

kD 

18 

kl 

18 

k? 

18 

k3 

18 

kk 

18 

k5 

16 

•4 

18 

k7 

18 

kR 

18 

k9 

18 

?T 

18 

SI 

16 

S» 

18 

S3 

18 

5k 

18 

55 

IS 

b6 

IS 

57 

18 

SB 

18 

59 

D»TA  nL62/'LI\ 
DATA  HU72/' ( VP 

1  '      '  i   '      '  * 

2  '/'     '/ 

C 

LL  .  X'12BC 

C 

1','BER  • 

< , ' <PCT' 

' (MPHI i I ) 


I, ' YEH) ', ' 

(SE'»'C/VE> 


12BC0'  9k  1.1709  SCALEO  bl6 

LL  •  LlBN.\n9N 

IERT  .  o 

IF(NPAuE.NE'O)  S8  T8  110 

IMITIA^IZE  TAPE  BUFFER 

D9  10  liliWSH 

TBUFFi I  I  .  0 
10  C9NTlNuE 

v9TNT  .  o 

JATE  A\D  TI"E  F9R  TAPE 

DS  15  j.l»3 

TBUFF ( J)  •  DATE! J) 
15  C9*TINUE 

TB'JFF(,)  .  TI1E(k) 

INITIALIZE  TAPE  INDEX(HW) 

INDEX  •  9 

SET  iNhlbIT  R8UTINE  E  FLAG 

IHIBE  .  IhlbE  ♦  1 

IR6  .  l 
2;  C9NTINuE 

GET  NUMBER  BF  DETECT8RS  8>*  LlN< 

MI"1 

IR12  .  MI 

CALL  HALF(VACC»IR6/ITMP| 

VDAYlKfl)   •  VDAY(KMl)  ♦  V»C0|<«1) 

CALL  nALFl YUAY. IR6* ITMX) 

IT^x  •  ITMX  ♦  IT1P 

CALL  PTHLF( VDAT. IR6' IT^X) 

SDAYKll)  •  BDAYIKrl)  ♦  8PC 


18 

63 

18 

61 

18 

6P 

18 

63 

lo 

6k 

18 

65 

18 

66 

18 

67 

16 

68 

16 

69 

18 

7P 

18 

?1 

18 

7? 

18 

73 

16 

7k 

18 

75 

18 

76 

16 

77 

18 

78 

18 

79 

18 

80 

13 

81 

18 

82 

18 

83 

18 

6k 

18 

"5 

18 

86 

18 

87 

16 

88 

18 

89 

18 

90 

18 

91 

18 

92 

18 

93 

18 

9k 

33 


CALL  HALF(8ACC» !«&• ITMP) 

IF(ITMP.LT.O)  1TMP.0 

ITIP  •  ITMP/9 

8PC  •  ITMP 

I  TIP  «  (ITmP+»)/B 

CALL  HALF(6JAY» IR6# ITMx) 

I  TIP  ■  ITMP  ♦  ITMX 

CALL  PTHLF(B0AY,1R6»ITMP) 

AVSP  a  0 

TRTM  ■  0 

SET  ACCUMULATED  VOLUME 

CALL  HALF <  VACC» IR6.ITMP) 

bRANCH  IF  .NO  VOLUME  8N  LIN* 

IF( IThF.ECO)  S8  T8  30 

ITiP  •  NI-ITMP 

CALL  halF(SACC» I«6j ITMX) 

ITE>-P  •  ( ITMXaKVl )/ITMP 

ITEMP  a( ITEMP. LLBN>/2.«10 

avSP  .i  ITf:MPaNNeN4/2««9 

CALL  HALF|sDAY,IR6»ITMP) 

ITIP  .  ITf.P  ♦  AvSP 

CALL  PTHLFlSOAV, lRb, ITMP] 

CALL  MALFfO< IR6. ITMP) 

I3Iv  ■  (KV2»ITMP)/avSP 

TRTM  •  IDIv'<2«»9) 
30  C8NTlNi,E 

CALL  MALF(AMIST, IR6< ITMP] 

ITiP  a  K««ITMP/?a«l» 

CALL  HALF! vHJST, IRbi ITMX) 

TVHLS  a  ( ITMP»ITMX)/2 

1VPLS  a  »avACC(KMl)«Kh»ePC/3? 

jT-P  a  <«.0MC/3? 

CALL  "ALF (vACC/]R6»!TMP) 

-VHLS     a     JT   |P     ♦     ITMPa, 

TEMP    a     lABSdvPLS-TVPLS) 

lF(TEMF.LE.DELA)    36    T8    90 

aT-p  .  DELP#TvPLS/2»«16 

Ir(T-.  :<.LL.XT1P)  30  T9  90 

\"l'i'  a  N9TNT  ♦  l 

ST8RE  l!NK  INFBRMMIBN  INTO  TAPE  BUFFER 

IR1C  ■  IR6 
*0  CONTINUE 

IR«  •  INDEX 

INCREMENT  TAPE  INDEX 

CALL  PTMLFlTBUFF. IR*j IR10) 

ST9RE  LINK  NUMBER 

IR»  a  1  Ra>  *  I 

CALL    HALF  WACO  IR6.  ITMP) 

[TIP    a    *a]T1P 

CALL  PTHLF(TBuFFiIR», ITMP) 

CALL  PTMLFlTBUFF, IR»*7» ITMP) 

IR»  •  IR*  ♦  1 

ITIP  a  (8PC*16)/32 

STORE  PERCENT  OCCUPANCY 

CALL  PTHLF(TBUFF/IR4, ITMP) 

CALL  PTHLF(TBUFF»IR»«7< ITMP) 

IR»  •  IR*  ♦  1 

CALL    &tTBY(UFAlL» IR6#ITMP) 

IF!  ITMP.EO.O)    (jB    TO    50 
IR*taH<t»9 

58    T8    <iO 
50    C9NTINUE 

CALL    5ETBY(M8EIF» IR6/ITMP) 

IF( ITMP.EO.O)    a*    T8    60 

IR*    •     IR*    ♦    2 

uB  TB  65 
60  CBNTINuE 

STORE  :  F3W  QUES 

CALL  PTHLFlTBuFF.  IRi.,0) 

IR«aH,-U 
STBRE  J  FOR  ST8PS 

CALL  PTHLFlTBUFF.  IH<*.  0  I 
1R»  a  IK4  ♦  1 
63  CSNTlNuE 

ITMP  a   (AVSP«»)/8 

STORE  AVERAliE  SPEED 

CALL  PTHLF (TBUFFj IR*. ITMP) 

CALL  PTHLF (TBUFF, IS4.5,  ITMP) 

CALL  PTHLF( TBUFF. ]R»*6»0> 
H»  ■  IR»  ♦  1 
ITIP  •  TRTl  •  2 

STORE  TRAVEL  TIME 

CALL  PTMLFlTBUFF. IR4,  ITMP) 
IR»  a  IR*  ♦  1 
ITIP  a  j 
72  CONTI'.ut 

STORE  uELAY 

CALL    PTHLFl TBUFF/ IR»«C) 
IR»    a    ;ri>    .    5 


IS 

95 

18 

96 

18 

97 

18 

9g 

18 

99 

18 

no 

18 

101 

18 

102 

18 

103 

IS 

10* 

18 

105 

18 

106 

18 

107 

18 

108 

18 

109 

18 

lie 

18 

111 

18 

11? 

18 

113 

18 

m 

18 

115 

18 

116 

18 

117 

18 

118 

18 

119 

18 

ISO 

18 

121 

18 

15? 

18 

123 

IS 

12* 

18 

125 

18 

126 

18 

127 

18 

125 

18 

129 

18 

130 

18 

131 

18 

13? 

18 

133 

18 

13* 

18 

135 

18 

136 

13 

137 

IS 

13S 

18 

139 

18 

1»C 

18 

1»1 

18 

1*2 

18 

1*3 

18 

!»<. 

18 

1»5 

18 

1*6 

18 

1»7 

18 

1*8 

18 

i»9 

18 

150 

lb 

151 

18 

15? 

13 

153 

18 

15* 

1  * 

155 

18 

156 

18 

157 

18 

15? 

18 

159 

18 

16? 

18 

161 

18 

16? 

18 

163 

18 

16k 

18 

165 

18 

166 

18 

167 

18 

168 

IS 

169 

18 

WO 

18 

l'l 

IS 

17? 

18 

173 

18 

17» 

18 

175 

18 

176 

18 

177 

18 

178 

18 

179 

18 

1"0 

18 

1*1 

18 

18? 

18 

1"3 

8  J    CBNTIr.iA 

INDEX    a     IP* 

ITMP     .      0 

CALL  PTMLFl VACC. IR6. ITMP) 
CALL  Pl"LF|SACC,  IRo<  IMP) 
CALL  PT-iLF  (BACL,  IRt>»  ITMP) 
IR6  a  IRb  ♦  1 
IF( IRb.LE.NMLNK)  3b  TB  20 
06  T8  1U0 
90    CO'-TlNuE 

IRlD    i    I»6    ♦    1 

IF  LIN*  IS  IN  TOLERANCE  SET  SIUN  BIT  8F  LINK  N8 , 


18 

11* 

18 

185 

18 

186 

18 

1«7 

18 

11S 

18 

189 

18 

190 

18 

191 

18 

19? 

IB 

193 

IS 

1=". 

THAT  IS 

18 

1*5 

34 


C      PUT  BN  TAPE 

IT  •  1 

CALL  PTBI I I  "MO/ 1 7» 1 »0 ) 

59  T9  nO 
100  CSMTlMuE 
C      RESET  I  ^-<t cjl  T  K8UTINE  C  FL»0 

M1BE  ■  IHJBE  -  1 

BIND    •    BIND    ♦    2 
C  SCHEDULE    RBUTINf    * 

MAST(»rAST>    •    1 

IF  (PFmL.ES«3)  CjB  TB  ISO 
C       T^ST  STATE  »F  PRINTER 

CALL  TSTLPl 1ERW) 

IF(  lERH.EO'l  )  JB  TB  180 

B|10  •  BIND  -  1 
C      9JTPUT  LINK  OATA  TB  LlNE  PtKTEBlFSq  l'sKS  THAT  ABE  BUT  BF 
C      TBLERAnCE) 

IFIN8TNT.NEO)  SB  TB  105 

b|ND  •  HIND  *  1 

MASTIHI AST)  •  2 

IE*T  .  1 

CALL  PkNTf (LCNTl 

BE  TORN 
105  CSNTInuE 

BIND  ■  BIND  •  1 
110  CBNTlNuE 

BIND  •  BIND  ♦  2 
C      TEST  STATE  OF  PRINTER 

CALL  TSTLP(IERR) 

IF(  IERRtEO.l  )  »8  TB  18U 

BIND  •  3IN0  •  2 

IR1  a  IR1  ♦  »B 

I9PT  ■  2 

N8TTE  •  30 
C      STBRE  1ST  LINE  BF  HEADER 

CALL  ST'"ISG(I9PT,IBNDx,LCNT(lRl,HDl?,rvPYTEI 
C      S<IP  LINE 

I9"T  .  * 

CALL  STISGl  IBPT,|BnDx,LCnT,IR1»HD12,nBYTE) 

IR1  ■  IR1  ♦  69 
C      STBRE  2ND  PART  BF  2ND  LINE 

I9RT  .  2 

MBYTE  •  2? 

CALL  ST^SGl I  OPT, I BNDX.LCNT, I Rl , nu32, NBYTE I 
C      SKIP  LINE 

ISPT  •  * 

CALL  S1M3QI 18PT,1BNDX,LCNT,Iri,HD32/NBYTE) 

IR1  •  IR1  ♦  7 
C      STBRE  nEADE*  I'  BUFFER 

I9PT  •  3 

.?'  rt  •  2* 

CALL  ST'aGl IBPT, IB\Cx,lCnt, I C] , HD22, nBYTE I 
C       S*IP  LINE 

I9"T  .  <• 

CALL  ST'lSGc  IBPT,  15  .Dx.LCNTj  1R1 , Ht 22, NbYTE 1 

I  ■»  1  .  1R1  ♦  6 
C      STBRE  1ST  P«ST  BF  jRJ  LINE 

NB"TE  .  if, 

I9«T  ■  3 

CALL  ST^SGl  IBPT,  IB'.Dx.LCNT.  I  9]  ,  HUtl,  NPTTE  ) 

IR1  .  I  Hi  .  16 
C      STBRE  2ND  PART  BF  jRj  LINE 

IBPT  .  2 

NBTTE  •  72 

CALL  STISGl IBPT, IBnOX.LCNT. IR1 ,MDS2» NBYTE I 

191  •  I«l  ♦  5 
C      STORE  1ST  PART  BF  »Th  LINE 

I8PT  •  3 

NBTTE  •  28 

CALL  STHSGl IBPT, IBNDx.LCNT, 1R1, HD62. NBTTE I 

1»1  •  1R1  ♦  1* 
C      STORE  2NU  PART  BF  1.TH  LINE 

IBPT  •  2 

MBYTE  .  75 

CALL  STVSG( IBPT, IBnDa.LCNT, 1 Bl .HD72, NRYTE 1 
C      SKIP  LINE 

I3PT  •  « 

CALL  ST^SGl  IBPT,  IBNDX.LCnT,  IPi , HD72, KBYTE  1 

I»3  •  TBFPT 
120  CSNTlNoE 
C      IjET  LINK  NJ^BEK 

CALL  HALF(T0UFF,IR5,IRU) 

IFI IRll'LT.l )  LB  TB  170 

NBTNT  .  NBTNT  •  1 
C      InCRE^lNT  TAPE  BUFFER  PBINTER 

IR6  ■  IR11 

[R5  •  IKS  ♦  1 
C      C-i'NGt  T0  tdCDIC  CBDE 

CALL  EiSRT(  Ull,  IVAL) 
C      PBSITJpN  CnAhALTERS 

CALL  5bYTC( I VAL(1),1 ) 

I'll  •  Ival!2) 

CALL    if TdYCH9ElF,iHfc,iTHP) 

IF  (  ITiip.EG.O)    u8    TB    13J 
C  ^AKf     SlA'nK     AN     <•) 

CALL     3t.TUY(STR,l,!THP| 

C'uL     PTdY(  IHH,»,  IT^P] 
C  TESTMF     -5AT    DETECTS*    SN    LI*«. 

CALL    3tTdY(UFAlL.IR6< ITHP) 

IF!  IT~lp.E9.U1    jB    TB    130 
C  PAKE    (»)    A.<    (HI 

CALL    3ETeV(STR,SjIT1P| 

C«LL    PT3Y( I«ll«*» IT"P) 
13i    CSMI'iuE 
C  STBRE     LINK     NUMBER 


35 


18 

196 

18 

197 

18 

19S 

18 

199 

Is 

200 

18 

201 

IS 

202 

18 

203 

18 

2.1A 

18 

205 

IS 

206 

18 

237 

1* 

20S 

18 

gno 

18 

210 

18 

211 

18 

21? 

18 

213 

18 

et» 

18 

215 

18 

216 

18 

217 

18 

21? 

18 

219 

18 

220 

IB 

221 

18 

222 

18 

223 

18 

2?» 

18 

225 

18 

226 

IS 

227 

18 

22? 

18 

229 

18 

230 

18 

231 

18 

23? 

18 

233 

18 

23» 

18 

235 

18 

236 

Id 

237 

18 

238 

13 

23? 

18 

240 

18 

2»1 

18 

2»? 

18 

2»3 

18 

24* 

18 

2*5 

IS 

246 

IS 

2«7 

18 

2»? 

18 

249 

Id 

25r 

18 

251 

IS 

25? 

18 

253 

18 

254 

13 

25? 

IS 

256 

18 

257 

18 

25? 

18 

259 

18 

260 

18 

261 

18 

262 

18 

263 

18 

264 

IS 

265 

18 

266 

18 

247 

18 

26? 

lfi 

269 

18 

2': 

18 

27! 

18 

27? 

18 

2/3 

18 

274 

u 

275 

Id 

276 

18 

2/7 

18 

27? 

IS 

?7o 

18 

2"- 

IS 

281 

18 

2*2 

18 

283 

18 

281, 

18 

285 

18 

286 

18 

287 

18 

288 

Id 

2«9 

18 

290 

15 

2"1 

18 

292 

18 

293 

18 

P9« 

18 

295 

18 

296 

18 

2*7 

18 

298 

lM 

2^9 

3BJFI11  ■  1^11 

CALL  -<alF(  ,«ISr,IR6.  IT-IP) 

[TIP  .  (]T  l"*]  1/2 

CHAVjt  TO  EBCOIO 

CALL  ElSRTI  ITMP,  I  j»L) 

5TMRE  .-IiTM^V,   i'?L(»t^l 

DdJPU)     •    IVJLI?) 


CAUL    --LFiAiIST, IRo. ITnP) 

I  T->P    •     lIT-""«135*lb38IH/»«»15 

CA.L    ElSRTI  I  Tl-w.  IVAL) 
C  ST-iRE    h-IST.    ^CCtPE^CE'-T) 

jSuF(<,)     .      IVAL(J) 
C  CjET    VEHICLES"/"-*    (VEM) 

CALL    HALF<TWUFF,IRi.ITi-,P) 

I-1)    •     1 45    ♦    1 

CALL  ElSRTI ITlP, IVAL) 

^■--JF  II!)  ■  I  VA|_<2> 
C       oET  PFkCENT  OCCUPANCY 

CAuL  h„LF(T«UFF  ,  IRS,  IT-IP) 

I-)5    >    ]Rb    ♦    1 
C  CONVERT    T8    EflCUIC    C83F 

CALL    ElSRTiITMPjIVAL) 

DBUM13)    •     1JALI2I 
C  ST8RE    tLAN«.S>    MR    QuEuE 

DbJF(lo)    •    IttL'-< 

IR6    •    IRS    ♦    2 

JB    T8    1 3» 
13c    CS^TINuE 
C  ST^RE    aLANKS    FL'R    STBPS 

IR5    •     I»5    ♦    3 

3bJMlo)     ■    IBL'-K 
13*    CSMTI-'UE 

33UFI19)  .  ISLM< 
C      uET  AVlLRAGt  SPEFU 

CALL  haLF(  r-uFF,  IRS,  IRH  ) 

IRs  .195+1 

CALL  ElSRTI  IR1  i,  IVAL) 

3BJFI22)  •  IvAL(2) 
C      GET  TRAVEL  TI1E 

CALL  HALFlTBUFF, IRS,  IT1P) 

IRS  ■  IR5  ♦  1 
C      SET  SCALE  FACTPR 

15  ■  5 

CALL  JEC3M  ITMP,  15.  IvAL) 
C      ST9R  CoR«  CU"  M9E  TRAVEL  T!"E I SEC/VEhi 

33JF(2<)  •  IVALI1) 

JHJFijd)  •  IVAL(S) 

IRS  •  IRS  ♦  5 
C      3T5RE.  tiLAN<S  6«  CU'?RE^T  CU  '  -13E  DELAY  ( SEC/  j£h) 

DBJF(?o)  •  IBL'^K 
C      SET  LP  ODEC  SPALE  0  Ll^ES 

CALL  PTBYIL^BjFjIRUITIS) 

HI  .  IRI  +  8 

I9PT  •  2 

\B»TE  •  lie 

CALL  ST1SG(  I8PT,lB\DX,LC-iT,  I  9\  .  DBUF ,  N.RVTE  ) 
C      TEST  F3»  M8-<E  LINES 

IF  (N9T  .T  .LE.  C1G8T8  1*0 
C      TEST  Fo^  FjLL  '•'AGE 

IF(LC<T.E!3.b3)  Qi    T9  150 

(.9  T9  183 
1*C-  C9-'TI.MuE 

bimd  ■  binj  ♦  i 

C  INITIALIZE    'APE    BUFF    P8HTER 

TBFFT    .    1 
\PAGE    .    J 
ol    T8    160 
ISU    C9^TI.-uL 

Td'PT    •     IRS 
\PAGE    «     .PAlJF    4    l 
14J    CBNTIKoE 

CALL    Pt.-<TF(LC\T) 
C  SE'    FL*3    T-J    Cause    SCETORN    TV    99UTINE    That    CALLrC    RT 

■  ASTIm:  AST  I     •    i 
ILiT    >    1 
R^  HjRn 
17j    CSNTI,\i.l 

IRS    •     IRS    ♦    '.  ? 

ue  ts   is; 

1»,       C9'-TI\.jE 
IE-IT. 1_. 

-t TUH\ 

EVJ 


18 

301 

It 

302 

IS 

303 

18 

30k 

IS 

305 

lh 

306 

Is 

3-7 

IS 

3->R 

18 

309 

18 

310 

In 

311 

18 

31? 

18 

313 

16 

31* 

18 

315 

18 

316 

IS 

ilJ 

le 

31? 

18 

31? 

18 

330 

18 

321 

16 

322 

IS 

323 

18 

32* 

18 

325 

18 

326 

1? 

327 

18 

32? 

18 

321 

IS 

330 

13 

331 

18 

33? 

IS 

333 

18 

331. 

18 

3  35 

la 

336 

18 

337 

18 

338 

18 

339 

18 

3»0 

1? 

3*1 

18 

3»2 

18 

3*3 

18 

34<t 

18 

3»5 

1  = 

3»6 

la 

317 

18 

3»8 

18 

349 

18 

350 

IS 

351 

18 

35? 

18 

353 

18 

35* 

18 

355 

18 

356 

IS 

357 

13 

358 

IS 

359 

18 

360 

18 

361 

18 

36? 

18 

363 

18 

364 

18 

365 

18 

366 

18 

367 

IS 

365 

18 

36  9 

18 

370 

18 

3/1 

IS 

375 

18 

373 

18 

37» 

IS 

375 

Is 

376 

13 

377 

18 

37« 

18 

379 

18 

3X0 

18 

381 

18 

3«? 

18 

3*3 

36 


2.6.20    SUBROUTINE  MHE AD 


SJ-s«90T  I  -.1    "l"C»D 

THIS    <itluT!<t    LMOS    1»E    "AIS    he:*DL«    1ST?    LPftUF. 

INTEUES     -I0U.HJ21 
I^ESSI?--    hJ]1  Ii2).hD21I9> 

.'jiFd',    />iL<2&/      C-ATEOl  »       PWV3I3I  <       LPbLf  I  I  »;f>  I 

C'KS  ;/-CDS/-ICll»MC2l 

:-JiH9,\/rtSlJd3/loLNK,  1  T  lb 

Ci1r.8\/^S»u/lui\CX,LCST,  I  SI 

DATA    M^H/i       uT>/'CS    1'*'5    MII|'NUTE>,'    STA'.iTuS    l#'A\D    '.'PE«F' 
.  I  BfllA  •  *' l  NCE    '/ 'HEPS' j'RT       i/ 

JA1A    H.J21/'       OA'.'TE       '»'  '»'  ','  '/'  '»•    TI-l'.'E  ' 

1  '  '/ 

SP'tE    .,    Ll^ES 

CALL    PTdV(L"djf ,1. I T IS  1 

5T9RE     ;ST    lI'-E    9F    hEaDE* 

HI    .    ,* 

IS"T    •    2 

>.rt»TE    .    18 

CALL    SMSGl  l»PT,!SsDx.LENT»llil»HDll#NBVTE) 

S<IP   Ll'-E 

I9HT    ■    <t 

CALL    SI^SGlIIPTjIBsUX.LCNT.IRl.MDll'SBVTE) 

HI    •    1«J    .    »9 

STShE    e«-0    LlSE    9F    HEADER 

I9"T    •    2 

v^Tt    •    J6 

CALL  ST!"-SG(  I"PT,I3SUX«LCST,  I  51 .  HQ2  j  /  MjYTE  ) 

SKIP  LI ^E 

I9PT  .  4 

CALL  SI ''SGI  I8PT,  13  .Dx,LCsT,l»l,HD2l,\FiYTE) 

RETlR  . 

•  VJ 


32 

1 

32 

? 

32 

3 

32 

*t 

3? 

5 

32 

6 

32 

7 

32 

8 

32 

<t 

32 

13 

32 

11 

32 

I? 

32 

1  3 

32 

11 

32 

15 

32 

16 

32 

17 

32 

1? 

32 

1? 

32 

iS 

32 

?1 

32 

2? 

32 

23 

32 

2» 

32 

25 

32 

it 

32 

27 

32 

28 

32 

?9 

32 

3C 

32 

31 

32 

3? 

32 

33 

37 


2.6.21    SUBROUTINE  OUTAP 


MUTI'.E!   ?JTAP 

•    « 

BUTaP 

Off 

BljTAP 

»£!• 

^lASK 

»EF 

HKF 

REF 

TSTAP 

"FF 

ShTFlQ 

RE* 

TBJFF15 

REF 

TBYTE 

RES 

1 

I 

RES 

1 

DATA 

0 

SHTFL 

EQu 

SHTFLO 

TBUFF 

E3u 

TBUFF15 

PT"iPl 

RES 

1 

BUTAP 

RES 

L«»l» 

•15 

ST.,1» 

I 

AI.15 

1 

ST., 15 

PTMPi 

LI, 6 

c 

ST., 6 

•I 

MT.,1 

\RPT 

L-,b 

HRF 

BEZ 

•  ♦3 

RD,0 

0 

BC*,2 

CALLTAPE 

Uw,lo 

RECDIMj 

BEZ 

MEXIT 

II, 1C 

0 

ST., 10 

«ecoins 

LI,0 

Qaiwritebfi 

sib»o 

X'EO' 

B 

HEAIT 

CALLTAPE 

RES 

Q 

LI, 6 

1 

ST. ,6 

•I 

BAL,15 

TSTAP 

B 

"EXIT 

LI, 6 

e 

ST. ,6 

•  I 

L»,1C 

SmTFl 

BEZ 

t*b 

LI, 10 

G 

ST., 10 

«ECDIMj 

L«,10 

HAS*. 2 

Ann, 10 

.»PITAPE*1 

LI,0 

Da<wRITAP£) 

Sle,0 

/'LO' 

1T.,1 

RECDI^c 

hEMI 

WES 

o 

B 

•PT^Pl 

HBu'.O 

3 

»R|TAPE 

GEM8j24 

l.BA(TBUFF) 

CiE'M,-3l21 

CTBYTE 

nKITLBF 

CjE\,(J,2» 
DATA 

Xi73>,0 

0 

REC01NG 

DATA 

0 

SET  ERR8R  C8ND  Ts  n 


NB,    BRANCH 

HAy/E    "E    BEEN    RECt)R2IS5 

NB,    EXIT 

CLEAR  RECORDING  FLAG 

ADDRESS  9F  IBP  C81MAN0  DBUBLE. 

-BROS  F8R  E8F. 

8UTPUT  BUFFER 


SET  ERRBK  o  1,  RESET  IF  N? 

CHECH  "C8N0ITI8N  9F  TAPE 
EXIT  •  ERROR  RETuRN 
RESET  ERR*)*  C8ND  TB  o 


ADDRESS  BF  IBP  CJM"lA\iD  DBuBLE- 

«9PDS  F8R  *RITE 

BUTPUT  E8F 

SET  REC8RDIN0  FLAG 


12 
12 
12 
12 

12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
IS 
12 
12 
13 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
ERRBR  12 
12 
12 
12 
12 
12 
12 
12 
<2 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 


9 
9 

10 

u 

12 
13 

I* 
IS 
H 
17 
IS 
19 
20 
21 
2? 
23 
20 
25 
26 
27 
26 
29 
30 
31 
1? 
33 
34 
35 
36 
37 
38 
39 


»8 
49 
50 
51 
5? 
53 
54 
55 
56 
57 
58 
59 


HBL<2 
NRPT 


OStCT 

DATA 

E.liO 


12 

60 

12 

61 

12 

62 

38 


2.6.22    SUBROUTINE  OUT2G 


B8UTI«EI       BUT2G 


•         8uT2(j 

19 

1 

5JBR8UTINE    8JT2GUI,  19PFI 

19 

2 

CB^MBN    /G2C"NT/    «*RK6FS(12»),  IB  ( IS*  )  »  IE 

A(3l)»EMT.   •■!   i     ii     '-.1-1 

19 

3 

1    CURPNI31) 

19 

« 

CB1M8N    /BL<6    /      FMC                         »       FMARK 

, 

MAST(9)               , 

19 

5 

•    1"AST                    ,       JMAST                    ,       KMAST 

, 

E1AST                    , 

19 

6 

•    HiAST                    ,       W1AST                    ,       QMAST 

i 

I-AST                    , 

19 

7 

•    S^ACt                    /       MPBKY                    ,       QCNT 

19 

8 

IMTE.SEK    HfAST 

19 

9 

CB^MBN    /BLK7/    1AB3(16)»     INTH(31><     INT; 

(31),     *CTCI17),     K3PH(31)j 

19 

10 

•    ISTUPF 

19 

11 

cb-imbn  /bl^i*/     Ci_£ns              .     oTlng 

, 

CML^G                    i 

19 

1? 

.    OJMYl,    0UfY2,    CNTLN(372),ENTFL<5)» 

19 

13 

•    «CL<17>,    <CTF!l7),    KCSFI17), 

19 

11 

•    NIVARlSl)          i       SEr-iS<(8)             ,       VRINTH23J       , 

L<PT«(fc»] 

19 

15 

CB^MBN    /BLK18/      CICTF(g)             ,       CT9DF,g]             , 

STBYD(R)             , 

19 

16 

•    CBNTBI62)          i       CIIH8F(31)          ,       CYCLCoi)          . 

ENINTU96)      , 

19 

17 

•    E^BFF(3l)          *       6GGT(12»)          ,       GAWTPfSl)          , 

GB.TPI31)          , 

19 

18 

•    GLA6CH2*)       /       GGGGllZ*)          <       GUABC<12»)       ' 

I\TDJ(»96)       , 

19 

19 

.    SSSS(]2»>          ,       TKKI31)               ,       «RK8F(3l) 

19 

20 

DPENSlBN    IFHDI7),  IFHDK21  )/  lFHD2<21  ), 

ITBLI21),  INU-)!*) 

19 

?1 

DATA    1SPCE/'            '/ 

19 

22 

DATA    IFHD/iUTCSi, i     I NT ' , < E«Se I . ' CT I B i , 

in    BF' 

iFSETi.iS          •/ 

19 

23 

DATA    IFH01/' INTE'j '"SEC", 'TIBN'» '          A 

,  •    PHA 

, iSE       ',i          Bi, •    PHAi 

19 

24 

1     . 'SE       ',  <          C'f '    PMA'jlSE       i/'             '. 

CYCL-. 

E          i,  lSu3Ml#'ET«ie>, 

19 

25 

2    'UK       ',<    C»B'»'E    UR'i'BUP    '/ 

19 

26 

DATA    IFHD2/'          N',  HJMBE', 'R          ',' 

, I9FFS 

,'ET       i,i             i.iBFFSi 

19 

27 

1    /'ET       1,1             ', 'BFFS'i'ET       i,l          Li, 

ENGTi, 

H          i,i          Ni,"UMBE"i 

19 

Z5 

2    '«          1,1          Mi/ tUMBE'» 'P.          '/ 

19 

29 

IBNDXM 

19 

30 

I3PT.5 

19 

31 

LCNT.l 

19 

3? 

LNOEX.7220 

19 

33 

CALL    ST^SGl I9PT, I8NDx,LCNT,LNDEX,  IFHC 

.NBYT) 

19 

3D 

IBPT.3 

19 

35 

lN'JEx.53 

19 

36 

NBYT.26 

19 

37 

CALL    ST^SGl I9PT,IBNDX,LCNT,LV0EX, IFm0 

,NBYT) 

19 

3S 

CALL    TIMEH(l-MOM) 

19 

39 

LNJEX.UN0EX*15 

19 

10 

I9°T.2 

19 

»1 

NBU«16 

19 

»2 

CALL    ST^ISGI  18PT,  I  BNCX,  LCNT,  L\DEX,  INUM, 

VBYT) 

19 

»3 

I9PT.4 

19 

«t» 

CALL    ST^SGl  I9PT, I9\DX,LCNT,LNDEX, IFMD 

,NBYT) 

19 

»5 

IB^T^ 

19 

16 

NBYT»84 

19 

»7 

LNL>EX.uNDEx*30 

19 

"8 

CALL    ST--ISG(I9PT,IBNDX»LCNT,LNDEX, IFHC] 

.SBYT) 

19 

»9 

LMJEX.lNDE»*30 

19 

50 

CALL    STMSG<I8PT,  IB.-lPX,LCNT,L>*DEX,  IF  mo; 

,MBYT) 

19 

51 

I9»T»» 

19 

52 

CALL    ST"SG(I9PT, I 8NDX,LCNT, LNDEX, IFHO 

,NBYT ) 

19 

53 

I  -  I  I 

19 

bit 

ICLK'l 

19 

55 

b    C8MTIIMJE 

IT    (I     .ST.    12t>    US    TB    95 

19 

56 

19 

57 

CALL    3tTBY< INTH,1, ICC) 

19 

5R 

IF    (ICL    .Eu-    0)       G3    TB    110 

19 

59 

09    19    j»l,e* 

19 

60 

10    ITWLUl'lSPtE 

19 

61 

CALL    ElSRTt I,  INUM) 

19 

62 

IT5LI2)«INJM<2) 

19 

63 

09    20    „«1,J 

19 

64 

jj'»'l 1 -1 1*0 

19 

65 

CALL    itTBY(19,jJ, 10) 

19 

66 

ID'ILl/e 

19 

67 

«.3.C j.l)»l 

19 

68 

CALL    ElS-iTI  10,  l\J~i) 

19 

69 

IT3LU>»INj"(Z> 

19 

70 

■iJ    CBNTJNjE 

19 

71 

CALL    GtTBYlCYCLOI,  !C) 

19 

72 

ID"XCL( 1C+1 1/2 

19 

73 

CALL    ElSRTl ID,lNU*> 

19 

7« 

IT»L(i»)»InUM(E) 

19 

75 

CALL    Gc.T3Y(  IEA,  I,  IC) 

19 

76 

C»LL    ElSRTt IC»I\UM| 

19 

77 

IT«L(17)«IWUM(2) 

19 

78 

CALL    SETBYtCGRPN, I,  IC) 

19 

79 

CALL    ElSRTl IC, 1KJ1) 

19 

so 

1TOLI2  .)•!  -Ov.(£i) 

19 

M 

I9*T.? 

19 

"? 

NB»T»tJt 

19 

"3 

wNDEx.tNDE«*30 

19 

84 

CALL    bTlSGl l9PT,I9NDx,LC  .T.LNQEX,  ITBl 

,NBYT ) 

19 

"5 

IFII.LT. 12*)    G8    T9    100 

19 

86 

9b    II     •    1 

19 

"7 

I9-F.1 

19 

GB    T8    iOO 

19 

*9 

100    CBNTINjE 

19 

90 

1CLK    ■     ICL<    ♦    1 

19 

91 

110    1-1*1 

19 

92 

IF     (  I  Ci_<    "LT.    »5)       GB    TB    05 

l^ 

q3 

II    •     I 

19 

■li* 

I9"F.J 

19 

^5 

200    CALL    P-.\TF(LCNT) 

19 

s6 

,-,AST(n.-.AST)«2 

19 

97 

RE'uRn 

19 

98 

EVJ 

19 

99 

39 


2.6.23    SUBROUTINE  PRNTF 


RBUTl  »E  !   PRvTF 


PRNTF 

DtF         PRNTF 

suurbutine  tb  service  li^e  printer 


MlL  CyNamICALL*  SET  UP 
R7  10ST  CB''TAI\  THE  NU~I 


REF 

LPeuF 

REE 

ElSRT 

R£F 

ENJACTm.ENDACTI 

REF 

SAVRo 

REF 

«IL9 

PNU~1 

RES 

1 

VAL 

RES 

4 

SAVR16 

RES 

16 

68uND 

8 

LPC8M 

RES 

106 

PRINTF 

SEN. 8.2* 

>   5»Ba,LPBUF) 

GEn.8«2« 

'   *'26>.l33 

RES 

1 

1 

RES 

1 

DATA 

0 

PT1P1 

RES 

1 

LSLNT 

DATA 

0 

PRNTF 

RES 

o 

L".l» 

•15 

STk..1i 

I 

M.15 

1 

ST., 15 

PTWP1 

L-.7 

•I 

L*»10 

LSCNT 

CI. 10 

53 

bE 

X.Fl. 

LI.lo 

STd/ID 

lpbuf 

ST-.7 

LSCNT 

Li, 7 

RTNrtC 

* 

L»<  10 

IENDACT.7 

ST.. 10 

SI»LP»3 

Lv„7 

LSCNT 

L-.ll 

7 

Ai.n 

-1 

"I*  11 

133 

LD.12 

prIntF 

E9K.13 

•  X'SuQCCOOC 

a*,i2 

11 

ST„,12 

LPCB:--2,7 

AI.7 

■1 

BEZ 

STRTBUT 

AI.ll 

-133 

LD.12 

PRINTF 

A,,  12 

11 

ST^.l? 

LPCBM-2,7 

fc'j,;.7 

imH 

STXTBUl 

R£S 

C 

neCCESSArY  C8"vAND  LIST  TB  PRlNTj 
bER  BF  LINES  T8  PRI\T(R7  •  I) 


C8NVERTED  EBCDIC  NUiBE^  ^ILL 
BE  RETURNED  IN  SeC8N"5  *9RD  BF 
THIS  ARRAY 


53  LINES  PER  PAGE 
PRINT.  WITH  F6R1*T 


TEST  IF  FULL  PA5F  LAST  TIME 

YES.  D9MT  M81E  PAPER 
NB,  H9ME  PAPER 

SAvE  CURRELT  LINE  BUTPuT 

GET  INDEX  FBR  PR9PER  E'iD  ACT  H 

ADDRESS 

GET  ADDRESS 

STBRE  IN  CAL1  FPT 

REST9RE  W7 

CBi-PDTE  END  BF  D*T»  ADRES9 


GET  CBM^AND  D9UBlE«BRD 
CLEAR  CB^ANO  CWAIn  AND  SrT 
END  INTERRUPT  CB'.DITIBiS 
ADD  euFFLR  8FFSET 
STBRE  IN  C6mm,nD  LIST 
DECREMENT  LINE  CSUNT 
BNLV  BNE  PRINT  LINE 

GET  CBM1AND  D9uBLE'«fi'D 
ADD  BUFFER  BFFSET 
STBRE  IN  CbMMAND  LIST 
LBBP  BAC«. 

INCREMENT  PAGE  Nu"BER 


13 

1 

13 

? 

13 

3 

13 

it 

LI  13 

5 

13 

6 

13 

7 

13 

R 

13 

9 

13 

10 

13 

11 

13 

12 

13 

13 

13 

U 

13 

15 

13 

16 

13 

17 

13 

15 

13 

19 

13 

2C 

13 

21 

13 

22 

13 

23 

13 

2» 

13 

25 

13 

26 

13 

27 

13 

28 

13 

29 

13 

3D 

13 

31 

13 

3? 

13 

33 

13 

3k 

13 

35 

13 

36 

13 

37 

JN   13 

33 

13 

39 

13 

T 

13 

"1 

13 

»? 

13 

»3 

13 

»» 

13 

"5 

13 

»6 

13 

»7 

13 

»» 

13 

»9 

13 

5f 

13 

51 

13 

52 

13 

53 

13 

54 

13 

55 

13 

56 

13 

57 

13 

58 

13 

59 

iENUACT 
mBL<1 


~BLKJ 
RTN"C 


LCI 

STl-.O 

Ln.3 

L*.ll 
ST»,U 

LI.  1» 

BAl.15 

GEs.8,2* 

G£f..8.2» 

LCI 

fi  J 

L  n ,  1 1 

ST. .11 

RE3 

CAuliS 
B 

BEN. 8/2' 


SAVRlfc 

SAVRt. 

PAGNM 

PNU* 

2 

ElSRT 


DATA 

Data 

DATA 

CSECT 

DATA 

USECT 

DATA 

ENU 


SAVR16 

VAL+1 

LPdUF+31 

SIBLP 
•  PT-:P1 

X'  \?_<  ,  /.a  (M;  LB  1 
x'CO'al 
LPC9^ 
EnDAL'Th 
EnDACTh.enDaCTi 


SET  UP  CALL  T9  F9RTRAN  R9UTINE 


ST6RE  FAbN.-i  IN  P.U'I  AS  CALL 
TB  ElSRT  "ILL  DESTR9Y  JNPUT 


STBRE  CONVERTED 
PRINT  BUfFER 
ISSUE  SI8 


,U~iPER  T'TB 


13 

60 

13 

61 

13 

6? 

13 

63 

13 

61. 

13 

65 

13 

66 

13 

67 

13 

68 

13 

69 

13 

70 

13 

71 

13 

72 

13 

73 

13 

71 

13 

75 

13 

76 

13 

77 

13 

7« 

13 

79 

13 

80 

13 

81 

13 

82 

13 

83 

13 

8» 

13 

85 
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2.6.24    SUBROUTINE  SBYTC 


»3UTI"E'   SBVTC 

C    •    SbYTl 

iJ^ReuII  <E  SBYTClA.  ■i) 
Ct"i  T-tIS  SOJTT't  PEWFBPM3  4  CI«CJLAP.  ShIFT  9N  f  bYTES  jF  TATA. 
C         A  •  FIW'jT  B'TE  BF  AN  «  b.YTE  AKPAY,   YUST  Be  8N  *SRD  BiU^OARY. 
C         N  •  »a.  OF  cjYTES  TB  SHIM  TB  THf  LEFT.   If  N  IS  NEGATIVE   THE 
C  SmIf-1  Is  TB  The  RIG"*.       .»  ,UE.  *  .LE.  <t 

IMECjE«  A,  f 

3 1  "ENS  I  8'.  A^),  d(,l 

Bill  •  A  ("2  > 

Bl2)  ■  All) 

B(3)  .  A(2) 

bit)  •  All) 

11   .  a  '♦  5 

I?    .  Il  .  7 

*  •  l 

3?  i  i  .  iuie 

(.ALL  3LT9Y(H.I,J) 
CAUL  PT-3Y  (A,<,J| 
..  ■  k  .  1 
1     CBNTlMuE 
=iE  Tu«'J 
ENU 


»7 
»7 

1 

17 

3 

*7 

it 

»7 

5 

♦  7 

6 

«7 

7 

17 

P 

»7 

9 

»7 

10 

•  7 

11 

»7 

1? 

17 

13 

»7 

1  » 

07 

15 

»7 

16 

»7 

17 

<t7 

1? 

»7 

1" 

17 

20 

«7 

21 

»7 

2? 
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2.6.25    SUBROUTINE  STAT 


RBUTInE:   STAT 


•    STAT 

Su^RSuTIME  STAT( J9PT, IRETI 

INTEGER  CIC»Y,CICEF/C!CTF,CTBDF»HSB   , PAGNT . S1S<T 

INTEGER  AC<F  ,9!ND  , C ICCT,CI CSF, CL INF , C^ALF* C11»l, JBuF  »DIS   , 

1  DrALF,D1BDE»FLTA3,FTYPE,H8LD  ,PATNM,PKEY  , iCDFC, SECFC/ 

2  SFAlL»SvlNC,TI1CH,HH*sT,HRF 

INTEGER  FHDl.FHD2,C8iHO,0ETH0,SHDl,SH';2,SHL'3,HlSD,3FF9\,EBC»'D 
3I1ENSI8N  CTabli22j> 
3PENSIBN  UBJFC1  ),  1VAL14) 

DIiENSIBN  FTYPE(5),ACKF(2),FHDK8)«Ft-D2(12)/C8NHD(8).DETHD(7) 
1.  S«D  1  (  7  >  ,  SHD2  ( 1 «  ) «  ShD3  ( 1 9  )  #  h  I SD  (  3  > ,  BFFB \  (  2  ) ,  E SCiD  (  4  ) 

C81f<8N/1ESAU/!BNDX,LCNT,  I  Rl 
C81MBN/HBLK1/PAGN1 
CBim8N/HSUB2/BIND,CT*BL»  1  BL 
C81MBN/HSUB3/IBLNK, IT15 

C81M8N  /HSUB5/  LCHAR,PKEV<SfSKT/SVINO 
C81M8N  /BLK6  /   F1C  ,   FMARK 

•  11AST        i       J1AST        ,   KMAST 
.  H-IAST        ,   «1AST        ,   OMAST 

•  SPACE        >   MPBKY        ,   QCNT 
C91MBN  /BLKB/  ii,  NDLNK(6>9)|  TT3, 

.  TT7 

C81M8N    /BLKlO/       CICSCH6)  ,       CJCSYiB) 

2    CTLSY(<t),CNSEC(3l)iCNTZN(l9l,LM<CN(fc9l, 

•  TIMCH(»I  ,       ZSI (32) 
CB1M8N    /8L«U/       HSB15I32)  ,       I015(fc4l 

2  LNKDI (64|,NDBL(69> ,N8NCS,N»CNTU), 
TBSU 


1AST(9) 
•EiAST 
IMAST 


CTlSCiim 


CBimBn  /BUK12/  D11J8),  DAYwK, 

•  LNKSI  (3)      ,   PATNMI3)      , 

•  SCCNT(29),SSFw 
CBiMBM  /BLK18/ 


PRTFL 


MNU1F 

•  NtwRD  , 

•  MSCT  , 

•  NRESP  , 
.  cs  , 

•  as  , 

CB11BN  /3LK17/ 

•  IA0VP,8|     , 

•  INTNrtOl)    , 

•  STBTK32),  TI 
C81M8N  /dL«.18/ 

.  CBNTBi62)    , 

•  E^BFFl31 )    , 

•  3L.ABCU24)   , 

•  SSSSl 12*)    , 
CB1MBN  /BLK25/  AHCC1138) 

•  DTTAB(2bg|   ,   UISI17) 

•  FL.TAB(8U0)   ,   HRf 

•  S9FAL,  3BAR(69)/  SECFC(t) 
^BlMBN  /WLK26/   DATU3 


CHSET 
nbmCh 

MANP 
NMi/ED 
NSTM1 

DS 
RS 
ADvNH(8)  , 

CNTDRU24)         , 
ITML(ii)  , 

EB(32)#    QVBM69) 
CICTF(8)        .    , 
CUR8FU1)  , 

GGGT(124>  , 

5300(12*)  . 

(31) 


MBUFL 
NC*22 
NMCTL 
NPATB 
TBSU 
FS 

ss 

CICBP(8) 

CNTNf- 
INT8UI32) 


SCNSI (?) 

1GPI 

NC»D2 

NMLNk 

NPb4 

TBYTE 

NS 

SCS 

CPAB3I3) 

IL2 
<L2 


.  <   CT8DF|8|     ,   STBYjif) 
.   CYClCOI)    ,   EMVT  U"»t,  I 
,   GA«TP|?1 I    ,   0B.TPI31 ) 
,   GUABCH24I   .   IMDJ(496) 
,   *S«8F(31) 

CiMAL(17)»  CiTAB(25«), 
,   D"ALF(17)    .   JiBDE 
,   M8DES        ,   NAI 
SC0FCI4),  VBLH38) 
,   PRVDI3)      »   LPBUF  (  1,836) 


CelK8N/BLK2»/AOR(  lk),P]A(6><RC^(2l»HSfl(14l#AP9*ll(l<.).CPN9U 
.  1ARS(o»0)     ,   H1API2)       ,   JCNT  .   <CNT 

•  l^ClB        ,   -HSBF        ,   CU8C.K        ,   «M|\F 
.  ilNCT        ,   TAo(3)       ,   N8NBI8) 

EUJI VAlE.mCE (CItEF,CICBP(2)  ) 

EOOI VALENCE (DBUF i LPBUF (1766) ) 

EQUIVAlENCE(CICSF(1>»CTBDF(2>) 


17 

1 

17 

2 

17 

3 

17 

« 

17 

5 

17 

6 

17 

7 

17 

S 

17 

9 

17 

10 

17 

11 

17 

12 

17 

13 

17 

14 

17 

15 

17 

16 

17 

17 

17 

18 

17 

19 

17 

2? 

17 

?1 

17 

2? 

17 

23 

17 

?<* 

17 

23 

17 

2ft 

17 

27 

17 

28 

17 

29 

17 

35 

17 

31 

17 

32 

17 

33 

17 

3» 

17 

3^ 

17 

36 

17 

37 

17 

J8 

17 

39 

17 

**? 

17 

"1 

17 

4? 

17 

»3 

17 

HI* 

17 

»5 

17 

»6 

17 

17 

17 

»8 

17 

»9 

17 

50 

17 

=  1 

17 

5? 

17 

33 

17 

34 

17 

S5 

17 

Sft 

17 

S7 

17 

SB 

17 

■59 

Eau I  VALENCE (H8UDI1 )»HSB(2) ] 
EUUIVALE'JCLICtiALF(i),ClCTF(2,  , 
DATA  FTYPE/'CS^',  'DET  ','LBvM' 
DAT*  ALKF/'  N   '*'  Y   '/ 
DATA  FhD1/>   ••!,!«  UT','CS  Fi, 
DATA  FmD2/'TYPE'  ,  l    NI'.'UfBF'. 
)  l-l     I,  I  DA",  I       '  ,  I  AC<  '/ 

DATA  CBMD/'«.»  ','UTCS','  C9N' 


t/ 


,  lllTCS'f  ' 
'BRY  ', • 
,  I   8N'/ 


DET' 


'TBD 


'BDET' 

, 'BC8" 

/ 

AIlUi, 
R    ., 

•RE  St, 

i TATU' 
>  T  I  ME  • 

"TRBL' 

,'LER 

, 'STAT 

'ECTfl 

,'R  ST 

, ' ATUS 

'TRSP 

/ 

DATA  D£ThD/'»»«  ' 

DATA  MlSU/lHISTl, 

DAT*  BFFaN/'  SFF' 

DAT*  EdCMD/'STBY' 

DATA  LFT1,LET2/'FSC1 <t 'DO   '/ 

DAT*  ShD1/'»..  ','UTCS','  SYS'.'TEM  .,'ST*T','US  •' 

DAT*  ShDg/'UESl i , 'RED  ','  ALT', 'UAL  i,<       PAi.iTTER' 
1'C  IN','     ','     ','     ', 'FAIL', 'URFS'/ 

DATA  SmQ3/'SECT',  '  IBM  ','  TH>»'E    <,'  M9D','E    ' 
1'    M,'0>   '»'      '/•   8P','ER   '»'      ','      '/' 
28N','T    •/ 

IRET  •  J 

BRANCk  TB  kE.-JUESTED  STATUS  fAlLUQE  CHECK 

09  TB  (b»7'.»l<tC»190)<  J8PT 

FAILURE  STATUS  PAGE 

5  C9NTINUE 
|R*  •  NBFAL 

GET  NUfBER  MIlURES  IN  FLTAB 
IF(MMJMF.ST«N'BFAL)  G3  TB  10 
SET  NBFAL  •  MAX 
IR6  •  liNuMF 
10  CBNTINbE 

BRANCH  IF  TMIS  FIRST  PAGE  BF  FAIuRES  T?  Be  BuTPUT 
IF(PKEY.EO.O)  j9  TB  20 
RESET  PASE  KEY 


17 

ho 

17 

M 

17 

62 

17 

f>3 

,  '•    '/  17 

hH 

,iKBST'i  17 

^5 

17 

!>6 

', •••   '17 

t>7 

17 

bf 

'/        17 

*S 

17 

70 

17 

71 

17 

72 

17 

73 

/         17 

7» 

,'   CI',  17 

/5 

17 

'ft 

,'E    ',17 

77 

'»'  C  17 

78 

17 

79 

17 

10 

17 

M 

17. 

H2 

17 

■3 

17 

8* 

17 

85 

17 

86 

17 

87 

17 

■S8 

17 

89 

17 

90 

17 

■M 

17 

9? 

17 

93 

17 

91. 

17 

95 
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P<EY  ■  PKEy  •  1 
C      NBT  1ST  PAGE  S3  SET  PREvlBUS  INDEX 

25  C9NT|'JuE 
t      BRANC"  If  rlBRE  FAILURES  Tm  HfPBKT 

|F(  IXh.^E.O)  G9  T9  3i 
C      \9  "S»F  FA1LJRES.  INCR£*F\r  BRANCH  IV3F.X 

uro  •  bind  ♦  i 

C      o=!*MCH  Trt  CSNTRfiLLt"  Rl ATUS < CST A T ) 

C9  T6  7'J 
3^  C9^TI\uE 

inPAQN".Eu«;i  CALL  MHEAJ 

CALL  PTBYIL^OF,  IR1»  IT15) 

1R1  •  1R1  .  55 

I9"T  ■  ? 

VjTTE  .  31 

CA^-L  ST  1SU(  I9PT,IB'>DX»LC'1T'»  IR1  .FmBj,  NRYTE  ) 

li-^T  .  1 

L".LL  ST<"SG(I9PT,I'S\UXjLCNT»  lRl#FHOl»NBVTE) 
C      ST9RE  SEC6*U  HEADER  IN  BUFFER 

1*1  •  IR1  »  16 

I3PT  •  E 

MBYTE  •  18 

CALL  STMSGl I9PTi I8NCX.LCNT. ICl/FHDe,\BYTEI 

I3HT  •  * 

CALL  STMSGI  11PT,  IBNDx.LCNT,  [SI ,  FHD?,  K.BYTE  ) 

IRl  •  -•(  r-fe- 1  ) 
•K  C9NTINuE 
C      P8SITI-'.'  BjFFE-t  PBINTER 

1*1  ■  1 K 1  ♦  *t> 

I      ■     F|_TAB<  1*6*1  ) 
C  o'_  1     1ST    «9KU    flt     F4JLJRE 

CALL    o- TdY( !.?< ITMP) 

CALL    PT-iY(  j, 4,  1T1P) 

2i-JFl  1  l     •    FI  YPE(  J-i) 

CALL    -i»LF(!»2.ITlo, 

CALL    E)SRT( IT»P, IVAL) 

v.    ■    1 

CALL    S=YTC( IVAL.M 

DBUF<3)    .    IV4LI?) 
C  CiFT    ?'<:,    FAILURE    "BRD 

C  FLTAoi  !■?<,♦?)     •    XHHM 

L    ■    FLTA-!<  1X6*2) 
C  FLTABl IRo*3)     •    uxMM 

M  ■  FLTAJI 1*6*3) 
C      FLTABl l*B*»)  ■  MXD3 

\  ■  FLTAdl I«6f>> 

CALL  GETdY(L»?, ITMP) 

CALL  PTBYILXiW  ITMP) 

CALL  oETdY|L.3,  ITMP) 

CALL  PTBY(i.X,?,  ITMP) 

CALL  GETBY(L#»» ITMp) 

CALL  PTBY(lX,3, ITMP) 

CALL  oET8Y(",l» ITMP) 

CALL  PT3Y(LX.k, ITMP) 
C       3BJFI6I  •  MHMM 

0BUFI6I  ■  LX 

IT"P  ■  [3LN* 

CALL  PTBY(L«»1< ITMP) 

CALL  UtTBY("i,3,  IT"P) 

CALL  PTBYILX.2. ITMP) 

CALL  3ETBY(M.», ITMP) 

CALL  PTBY(L".3» ITMP) 

CALL  t>ETHY(N<  1> ITMp| 

CALL  PTdY(LX»i(#  |!"P] 
C      DBJFUl  •  (*0)MxM 

UBUF(B)  •  L« 

ITMP  .  [Blnk 

CALL  PT3Y(L«»1» ITMP) 

CALL  "TiY(uX»2. ITMP) 

CALL  JtToY(N.3»ITMP| 

CALL  "TBY(lXj3» ITMP) 

C'.L     JtTsjVlM.lt,  ITMP) 

CALL    n     '(Li.„|TV) 
C  UBJF  (II     ■    !»:■)  (*0IDD 

L;BJF ill     ■    U 
C  GEI    AC- VJ*_t3G<_    C90E 

CALL    Gl  TMY| Iil» ITMP) 

3BJf (1*1     •    AC«f ( ITMP*l 1 

No'TE  ■  *8 
C      ST1RE  IN  OUTPUT  BUFFER 

I3PT  •  S 

CALL  ST"-SG(  IDPT,  Im  .Ox.LCNT,  I«l  ,0BUF#  \RYTE  ) 
C      ".SvE  T_-  .E»I  F-lL'J-iE 

IR«.  .  |H*  .  « 

IF(lC  -1  •  iT.b^i  r,8  Te  50 
CA„L  "IlflL^'ut  .  IRI<  IT15) 
C      BRANCH  IF  ALL  FaILi^ES  NUT  D9NE 


IFI  IRt.GE.i  )  SO  T9  »; 
BI-'D  ■  5 1  NO  ♦  i 

5L  CSMTlNot 

C      REf9R'-  NJC3E»  JF  FAILURES  LEFT  TH  PReCF^SS 

IRt  ■  l  !R6»« 1 /t 

SVINU  .  IR„ 
C      SET  ERrOR  <tY  F9R  NEXT  PASS 

P<EY  ■  P<EY  +  1 
6C  C3NTI\uE 
C      SET  REIURN  mptjb\  TO  RBUTI'^E  TUAT  CALLFO  h 

IRS.T  .  I 

CALL  PI.STF(LCNT) 
C      SET  SERVICE  BIT  IN  MAST 


17 

96 

17 

^7 

17 

98 

17 

99 

17 

100 

17 

101 

17 

10? 

17 

103 

17 

n* 

17 

105 

17 

r.i6 

17 

107 

17 

108 

17 

109 

17 

lie 

17 

111 

17 

11? 

17 

113 

17 

11* 

17 

115 

17 

116 

17 

117 

17 

11R 

17 

119 

17 

1HC 

17 

1?1 

17 

15? 

17 

1?3 

17 

1?* 

17 

1?5 

17 

136 

17 

137 

17 

1?? 

17 

1?9 

17 

HO 

17 

131 

17 

13? 

17 

n? 

17 

I'i* 

17 

135 

17 

136 

17 

137 

17 

13S 

17 

139 

17 

1*3 

17 

1»1 

17 

1*3 

17 

1-3 

17 

1»» 

17 

1*5 

17 

1»6 

17 

117 

17 

1*8 

17 

loo 

17 

150 

17 

151 

17 

15? 

17 

153 

17 

15* 

17 

155 

17 

156 

17 

157 

17 

118 

17 

15? 

17 

160 

17 

161 

17 

16? 

17 

1*3 

17 

16* 

17 

165 

17 

166 

17 

167 

17 

l*." 

17 

169 

17 

170 

17 

17! 

17 

17P 

17 

173 

17 

174 

17 

175 

17 

1/6 

17 

177 

17 

17? 

17 

179 

17 

1" 

17 

I»l 

17 

IB? 

17 

1H3 

17 

IS* 

17 

185 

17 

1"6 

17 

187 

17 

1»S 

17 

189 

17 

190 

17 

I'M 

17 

19? 

17 

193 

17 

19, 

17 

195 

17 

196 
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>*EXT  15  MIM 


MAST(Hl.AST)  •  2 
I  RET  .  1 
C      RETURN  T8  EXECUTIVE  ROUTINE 

SETURN 

C         CBNTRBLLER  STATUS  PAGE 
C 

70  C9NTIHUE 

c    ^lset  page  key  res  failure  status 

KEY  •  HI 
C      UST  IF  MAIM  hEAl-Ek  BUT  YET 

IF CPAGNM.EJ.})  CALL  MHEAO 

CALL  PTSY(LFBUF,IR1»IT15) 

IR1  ■  I«l  ♦  55 

I9*T  •  2 

MBYTE  •  30 

CALL  ST"SG(  19PT,  IBmCx.lCMT.  I  R  l ,  C9NH3,  \«YTE  ) 

I9»T  •  1 

CALL    STlSGl  IBpT.IBNDx.LCNT,  IB],  C8NM0,NFJYTE  ) 

IR1     •     1*1    *    12 
C  INITIALIZE 

I    •    1 

H«    •     1 

H6    ■    0 

H12    •    1 

IB*AN    ■    1 
4J    CSNTHlE 

HID    •    0 
C  SET    I«5    PBH    FAILURE 

C»LL    GeTBY(LET1,1,ITmP) 

CALL  PTbY( [K9>ti ITMP) 

IX  •  H12 

CALL    Gt  TBI  (C  1ALF.  I*.  IBIT.  1  ) 

c  test  controlled  paileo 

IP!  HIT.  JT.C)    ue    TB    90 
C  SET    IRg    P9P    STANDBY 

C«LL    JeTBV(LETl»2,H9l 
C  TEST    FtlR    STANDBY 

CALL    GtTBIcH9LD,  IX.  IBIT.l  | 
C  IP    hBLj    »    ',    SEE    IP    CONTROLLER    EXISTS 

tF{  HIT.EO.O)    1)9    TB    120 
C  TEST    CIC    SELECTED 

CALL    UHIiLJCSF.Ia.IBIT.i) 

IF  I  HIT.EQ.O)     1)6    TB    110 
C  SET    FBL    ACTIVE    CIC 

C*LL     if  Hy(LETi,3,  IK3) 

CALL  JtTalttlCET,  Ix. IBIT.l) 
C      TEST  ALT1VE  CIC 

IPC IblT.NE.O)  08  To  9n 

C  IV'IHITEB    CIC 

CALL  3t  TiY(LFTl,»,  H9) 

a;  csnti  <a 

C      GET  Ctt  .T-iBLLfR  NUMl'IR  AND  CONVERT  T9  EE'COIC  AND  ADO  I>  STATUS  CBDE 
>  ■  Hi2 

CALL  ElS-iT,*,  HAL) 
<-  ■  IVAL<2)*?*«8  ♦  H9 
3BUFC I.6»! I  •  « 

H»  ■  H6  +  e 

CLHE  •  CLHE  ♦  J 

lC*AR  •  lChA^  ♦  i 
C       TEST  EvJ  9F  Ll'E 

IP(LCmaR.LT.O)  G8  TB  ( 11 3. 1 40 > . I bRAN 
133  C9NTINlE 

LChaR  •  -H 

MBYTE  •  H6«* 

I3»T  •  2 

CALL    ST"3G(  HPT,  I  BmCX.LCmT,  IBfj  DbUP,  KBYTE  ) 

CALL    PTBYIL^BUP.  Hi.  IT15) 

HI    ■    HI    »    12 

H*    «    L 

09  TB  (  110.140). I8RAN 
113  CBNTp.uE 
C      A3VAMCt  CO  .HOLLER  MJ^BER 

H12  •  H12  ♦  1 

IPC  Hli.jT.NMCTi.1  GB  TB  133 

G9  TB  «0 
ISO  C9NTlMuE 
C      SUMBER  9P  MON-ExISTANT  C9NTRPLLPRS 

IC9N  .  M9NCS 
12b  CBNTHuE 

JCBN  •  IC9\  ♦  1 

CALL    GfcToY(M9CMT. JCBM, ITMP) 
C  MATCH,     39    NOT    BuTPuT 

IPC  HH.ECITMP'l    36    TB    110 

ICON    .     IC8'n    •    1 

IPC IC6S.GT.0)    09    T»    125 
C  LEGITIMATE    CONTROLLER 

GB    TO    J3 
130    CBVTI'.uE 
C  TEST    F.'R    PA*TIAL    LHE 

IPCH6.ME.cl     GO    TB    ICO 

dIMD    •    BIND    ♦    1 

ITMp    .    CLHE 

CLIME    .    0 

IPC  IT    t-.GT.3l    •)«    To    60 
C  SET     HF.T    TB    CALL    RTNhi 

HET    .    2 

SETU-J-. 


DETFCTO*  STATUS  PAGE 

H3  CBMTI.lE 

TEST  MAIN  HEADER  9uT  YET. 
IPCPAGvLEJO)  CALL  .ihEad 
CALL  PTBYC  HrluF,  HI.  IT15) 
HI  ■  HI  ♦  53 


197 
198 
199 
200 
201 
202 
803 
2"i* 
205 
206 
207 
208 
209 
210 
211 
212 
213 
21* 
215 
216 
217 
215 
219 
220 
221 
222 
223 
22* 
225 
226 
227 
228 
229 
230 
231 
232 
233 
23* 
235 
236 
237 
238 
239 
2*0 
2*1 
2*2 
2*3 
2*» 
2*5 
e»e 
2*7 
2*8 
2*9 
250 
251 
2b? 
2^3 
21-* 
255 
256 
257 
259 
259 
260 
241 
26? 
263 
26* 
265 
266 
267 
269 
269 
2'0 
271 
2/2 
273 
27* 
275 
276 
277 
278 
279 
2*0 
2«1 
29? 
293 
29* 
2»5 
296 
2«7 
298 
2«9 
290 
2*1 
29? 
2^3 
29* 
295 
296 
2)7 
298 
2>9 
300 
301 
30? 
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IBPT  a  2  17  313 

NBYTE  •  28  17  3i» 

OIL  ST"lSGl  I9PT,  IB  *D*,LCNT,  It)l  .DETHD,\bYTE  1  17  305 

1B"T  a  4  17  306 

CALL  ST*SG<  IBPT,  IBNDX,LCNT,  I Rl . DETHD, MBYTE >  17  3^7 


191  •  INI  ♦  12 
C      SE '  MAS<  INUFX 

I  ■  1 
C      SET  r.9k3  InDEX 

I9»  ■  1 
C      SET  STORE  I"«DEX 

1 5b  •  3 
C      SET  DETECTOR  NUMBER 

!312  ■  1 

I3RAN  •  2 
15j  CSNTT.oE 

WO  ■  S 
C      SET  IRs  FOR  DETECTbW  FAILURE 

CALL  3ET8V1LET2,1,IK9) 

IX  •  IK12 

CALL    liETBIIDiALF.Ix.IBITO) 

c    branch  if  oetectbn  failure 

IF(  IblT.NE.C)  jB  TO  90 

c    set  in*  fbr  cbmm  failure 

CALL    GET8Y|LET1,3,IR9> 

CALL    GlTdl (CMMAL« IX. ISIT.O) 
C  TEST    FbK    C6"iM    fAlUJ^E 

IFI IBIT.ME-C)    HI    TB    93 

CALL  GETJY(LET1,2.  I  R9  ) 
C      TEST  DETECTOR  STANDBY 

CALL  GtTBIlDIS,  IX.IBIT.C) 

IF(IBIT.ME.O)  Gfl  TB  90 
I6j  C9NTINuE 
C      ADVANCE  DETECTOR  NuM8ER 

1912  •  IR12  ♦  1 
C      TEST  CREATE*  T«AN  MAXIMUM 

IFI  IB.12.LE.NMVED!  GB  TB  1 5 J 
170  CONTINUE 
C      TEST  FOR  PARTIAL  Ll\t  ^AIT^G  TB  BE  STB4FD 

IFI IRfc.NE.^)  GU  T9  100 

BIND  a  BIND  ♦  1 

IT1P  a  CLlNt 

ClINE  a  0 

IF( 1T1F.3T.0I  <jB  TB  60 
C      SET  IRET  TB  CALL  3TNM1 

I9ET  a  2 

RETURN 
C 
C         SYSTEM  STATUS  PAGE 

c 

180  CSNTlNuE 

SMSKT  a  0 
C      TEST  IF  MAIN  HEADER  BUT  YET 

IFIPAGNM.EJ.O)  CALL  MHEAO 

CALL  PTWY(Lt>8UF, 191, IT15) 

191  a  ]91  ♦  52 

NBYTt  a  26 

I9PT  •  2 

CALL  STMSGlIBPT, IBNDX,LCNT, 19] , SHDl, NeYTF I 

19PT  a  * 
,      CALL  STMSGl IBPT,I8NDX,LCNT. 191, SHDl, NRYTE) 

[91  a  IRl  *  ?7 
C      oET  8FF  3R  ON  CBDE 

HISDI3I  a  UfFBN|H9F+l ) 

ISIt^T  a  2 

.BYTE  a  12 

CALL  ST"SG( I9PT,Ifct^Dx,LCNT, 131 ,H1SD» NRYTE 1 

I3°T  a  » 

CALL  STMSGI I9PT,I9.0x,LCNT, I  91 ,H [SC, KBYTE ) 

191  a  IR]  .  »2 

I9RT  a  2 

N9YTE  a  56 

CALL  STMSGlIBPT, I9jDX,LCNT,Ipi,SHD2,NPYTE | 

CALL  PTBY(LPBUF,IR1,IT15) 

IR1  ■  IRl  ♦  27 

NBYTE  a  73 

CALL  ST  1SG( IBPT, IBNDx,LC\T, 191 . SHD3, KBYTE ) 

I9"T  a  4 

CALL  STMSGlIBPT,  I  B'»DX,LCNT,  IP1.SH03.NBYTEI 

196  a  l 
190  CBNTlNuE 

IR11  ■  196 

CALL  E1SRT(IR11,IVAL) 

N  a  1 

CALL  ScYTCl IVAL.N) 

DBJFI1I  a  IVALI2) 
C      GET  TIME  9F  CHANGE  FOR  SECTI9N 

3BUF (3)  a  TIMCH(I96) 
C      GET  DESIRED  "SUE 

CALL  3ETBY<UM8CE«I96, ITMP) 

DBUFI5)  a  EBCMUl ITMP+1 1 
C       GET  ACTUAL  *9DE 

CALL  GtT8Y(l9DES, IR6,  ITMP| 

DBUFI7laEBC',D(  ITMP+1  I 
C      GET  PATTERN  NUMBER 

CALL  j£TBY|RATNM,  I(,6,  JT1P) 

ITMP  .   [TMP  ♦  1 

CALL  ElSRTl ITMP, IvALl 

DBUFI9I  a  IVALI2) 

CKCT  a  0 

IR3  a  J 

c         get  number  »f  cic  frbm  rbutkf  k 


17 

308 

17 

309 

17 

310 

17 

311 

17 

312 

17 

313 

17 

31» 

17 

315 

17 

316 

17 

317 

17 

318 

17 

319 

17 

3?r. 

17 

321 

17 

i?2 

17 

323 

17 

3?» 

17 

325 

17 

326 

17 

327 

17 

3?8 

17 

329 

IT 

330 

17 

331 

17 

33? 

17 

333 

17 

33* 

17 

335 

17 

336 

17 

337 

17 

338 

17 

339 

17 

3*0 

17 

3«1 

17 

3»? 

17 

3*3 

17 

3»» 

17 

3*5 

17 

346 

17 

347 

17 

348 

17 

349 

17 

350 

17 

351 

17 

3d? 

17 

353 

17 

354 

17 

355 

17 

356 

17 

357 

17 

358 

17 

359 

17 

360 

17 

361 

17 

36? 

17 

363 

17 

364 

17 

365 

17 

366 

17 

367 

17 

368 

17 

369 

17 

370 

17 

371 

17 

37? 

17 

373 

17 

37a 

17 

3/5 

17 

376 

17 

377 

17 

378 

17 

379 

17 

3?-; 

17 

381 

17 

38? 

17 

383 

17 

38a 

17 

385 

17 

386 

17 

387 

17 

388 

17 

389 

17 

390 

17 

391 

17 

39? 

17 

393 

17 

39« 

17 

39* 

17 

3"6 

17 

397 

17 

398 

17 

399 

17 

too 

17 

.01 

17 

40? 

17 

a-13 

17 

»04 
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C*LL  ClCl I»3«SWS<T,CICCT) 

CALL  E1S«T(CICCT,  HAL) 

DBOF(lc)  •  lvAL(2) 

C£T  NUfiSER  9F  UETECT9R  FAILURES 

K  ■  SCoFC(I*6) 

CALL  ElSRT(K, I»*L) 

\  •  1 

CALL  SdTTCl IVAL.N] 

DaJF(lo)  •  IVALI2] 

&ET  NUnBEH  3F  C9NTR9LLER  F«Uil«E5 

<  •  SECFC(I"6) 

CALL  EiS>)T(<.  IVAL) 

\  ■  I 

CALL  SfVTCdvAL.M 

DSJFllt)  ■  IVAL{2) 

1*1  ■  |R1  ♦  28 

IfpT  .  g 

'.3TTE.  .  72 

CALL  51  'SC>(  I1PT,  I3'jC»,LCNT,  1  Rl  .  3BJ>  ,  «..bvte  1 

I""  »  • 

CALL    ST^SGlISPT.^Dx.LCNT,  Ul .  OBUF  ,  s  HYTE  1 

I*S    ■    1Kb    ♦    1 

TEST    F-.l 

IF(  I«o.LE-  -1SCT)     yi    T9    19C 

b]\D    ■    •>]•*}    *    1 

CALL    PniNTF(LCNT) 

RETLRAi    Ttf    EXECUTIVE    R9UINE 


MET    •     1  17       <•}? 

RETURN.  17       »33 

;  vj  17      "I* 


17 

•  ?5 

1  7 

<06 

17 

•  37 

17 

»:s 

17 

»C9 

17 

»ir 

17 

•  11 

17 

"1? 

17 

•  13 

17 

-'  it 

17 

•15 

17 

"1  * 

17 

•  !  7 

17 

•  1  * 

17 

•  19 

17 

•23 

17 

•?1 

17 

»»> 

17 

•  23 

17 

•  a* 

17 

•  ?5 

17 

•  26 

17 

•  27 

17 

»?? 

17 

•  29 

17 

*•?■) 

17 

•31 
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2.6.26    SUBROUTIN  E  STMSG 


RBjTl  «E  : 


c 

• 

STISj 

33 

1 

SJ^RBuTI  IE    ST-iSG(  I6PT,I3Npx,L0 

IT,  LNOEX.  * 

ESSG, 

NtJYTE  ) 

33 

? 

c 

ST^Su  -iTBRlS  ".ESSAuE  INT8  LH3UF 

33 

3 

c 

THIS  ROUTINE  AlSB  *IlL  SPACE  6NE  LlNE  BR 

luac 

LBfaUF 

*ITH 

BLANKS. 

33 

A 

c 

33 

5 

c 

I\"0T 

33 

6 

c 

IBPT  ■  1  NUHCSF.R  OF  BYTES  IN  ^ESSAGf  IS 

BbTAINfD  FRBr-  FIRST  BYTE 

i) 

7 

c 

IN  >'1£SSAGE. 

33 

a 

£ 

■  2  NUrtBE-l  BF  BYTES  Iv  t 

ESSAiiF  IS 

IN  CALLIV, 

SEOUE 

:NCE- 

33 

9 

c 

.  3  SNL'Y  A  PARTIAL  LINE 

IS  T8  8E 

BUTPUT.  LCI 

P  AND 

IB»DX  ARF 

?3 

10 

c 

N8T  INCREMENTED. 

33 

11 

c 

IBPT  •  *  SPACE  »KE  LINE 

33 

IE 

c 

IBPT  ■  5  SET  LP81.F  TO  BLANKS 

33 

13 

c 

IBNu*.  Bu>  InJEx. 

33 

1* 

c 

LCNT  ■  LINE  'CflUNT. 

33 

15 

c 

LNDtA"  LPBUF  I>nDF.X, 

33 

16 

c 

LPBUF  •  BuTPUT  dUFFER- 

33 

17 

c 

itSSj.  CONTAINS  MESSAGE  T«  BE 

BUTPuT. 

33 

18 

c 

NBYTti  Nyidfn  BF  BYTES  TB  3E 

BUTPUT. 

33 

19 

c 

33 

20 

c 

bjtput 

33 

21 

c 

LCNT  •  CuXR^NT  LINE  C8UI>  T 

33 

22 

c 

IBNCx«  CU*HENT  BUFinOEX 

33 

S3 

c 

LN0Ea«  CURRENT  lpbuf  index 

33 

2* 

c 

OI^ENSIBN  «ESS3(  1) 

33 
33 

25 
26 

CB^NBf.  /ilKSb/       DATEOI 

PRVDI3I 

LPBUF(18 

33 

27 

CBIMBN/HSUoS/IbLNKj IT15 

33 

28 

oS  T8  (  3u»10. 20. 60,70).  I8PT 

33 

29 

13 

CBNTInuE 

J  •  1 

GB  TS  tO 

33 
33 

33 

JO 
31 
3? 

2  J 

Ce-'TI  <uE 

LCNT  •  LCNT  .  1 

J3NDX  .  lBNUx  •  133 

J  ■  1 

ti9  TB  .»j 

33 
33 
33 
33 
33 

33 
31 
35 
36 
37 

30 

CBNTINuE 

J  ■  2 

CALL  bf  TBYI-iESSG.l/NBYTE) 

33 
33 

33 

38 
39 

«0 

to 

CBNTINuE 

OB  50  I«1»n»YTE 

CALL  aETBY(n£S3G»J/ITE1P) 

CALL  PTBY(LP3uF,LND£x, ITE"P) 

uNDLX  •  LNDtX  ♦  1 

J  ■  J  ♦  1 

33 
33 
33 
33 
33 
33 

M 

«2 
»3 

*5 
16 

50 

CBNTINuE 

lCNT  •  LCNT  ♦  1 
IBNOx  •  IBNUX  ♦  133 
06  TB  100 

33 
33 

33 
33 

»7 
»8 
*9 
50 

c 

60 

SPACE  BNE  LINE 

CBNTINUE 

CALL  PTBY(LPBUF,LN0EX(IT15) 

lCNT  •  LCNT  ♦  1 

33 
33 
33 

33 

51 
5? 
53 

51 

c 

7i 

INITIALIZE  LPflUF  INDEX  T9  START 

IBNDX  .  IB  .OX  ♦  133 

CALL  PTBY(tPBUF .LNOEx, IT15) 

GS  TB  100 

CBNTINuE 

8F  NrxT 

LINE. 

33 
33 
33 
33 
33 

55 
56 
3  7 
58 
59 

c 

SO 
100 

150 

SET  LPbUF  TB  BLANKS 

LMAX  •  LNDE*/*  ♦  1 

06  80  u'lfL-'AX 

LPBuF(u)  ■  I3LNK 

CBNTINuE 

LNJEx  .  1 

CBNTINuE 

IF( I8PT.EQ.3)  >,6  TB  150 

LNJEX  .  IBmOx 

CSNTInuF 

RETURN 

iNJ 

33 

33 

33 
33 

33 
33 
33 
33 
33 
33 
33 
33 

60 

61 
6? 
63 

6<4 

65 

66 
67 
68 
69 
70 
71 
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2.6.27    SUBROUTINE  TIMEH 


rsjtI'.e:     tmeh 


SJBR8uT!'-E    TIMtHdfaUF) 

TllS    Si^RSjTINE    TAKES    A|.Pm»NjhERIC    DaTA(DATE.YEAR.h8\'T-',  ,AY,H8UR 
AVJ    •'IxJrtl    9BT»IMt.C    Fa")*    »    CAL    SESVKe    T9    READ    THE    R5"    CL9C<    AND 
-E^ICCS    The    JATA    I >TB    IduF . 

1^"UT 


SUTPuT 
I  BUFF 


T*B  BYTES  REPRESENTING  YEAR  Is  9TH  AND  1'iTh  9YTES. 
THREE  BYTES  REPRESENTING  m8>.  th  in  jnO,  3RD  and  »'»  BYTES 
T«8  BYTES  REPRESENTING  DAY  I -l  4T"  AND  7Th  ByTESi 
T«8  BYTES  REPRESENTING  H8UR  Is  1JT-,  »va  i*T*  BYTES. 
T*8  BYTES  REPRESENTING  1hLTE  IN  15TH  ANU  jilTh  BYTES. 


ADDR  8F  tiufFE'  T1  ST8RF  IjTPJT 
ENTRY 


DEF 

TIMFh 

«EF 

9STUP1 

RES 

1 

IBUF 

RES 

1 

DATA 

0 

PTEMPi 

DATA 

0 

TI^EH 

RES 
LI. 5 

1 

8AL»6 

9STUP1 

GE\»8»2<< 

l.IBwf 

ST., 15 

PTE-P1 

LCI 

h 

STM.10 

RSAvE 

CalI.8 

TI-HEFPT 

L«.1D 

RB^TIIE 

L»»ll 

RB1T1M£«J 

ST-.1G 

1? 

SLU.10 

•2» 

ANC11 

•X'FFFF' 

A'JD.12 

■X'FfFf 0000' 

A., 12 

11 

ST..12 

13 

L».10 

RB^ITI^E*! 

L-,11 

«B"TI1E*2 

SLD'IO 

B 

Al.ll 

*'»0' 

L-.12 

X6MT]i-.r»d 

sls.13 

16 

AI.12 

X'13^0' 

• 

MBvE    D»T»    T9    USER'S    BUFFrR 

LCI 

0 

STr.10 

•IBUF 

• 

RESTORE 

REGISTERS    AND    EXIT 

LH.10 

RSAVt 

B 

•PTEMPI 

TI-ieFpt 

RES 

0 

QE.\#6»7 

17       *•  1C.0/RBHTIH 

KB"TI"£ 

DATA 

i.c.o.o 

RSAVE 

DATA 

E.mL 

G.O.J.C 

S«vF  REGS  13  T«RW  13 
READ  CLBC<  INTO  -,9*TI- 


K13.mUuR.hBUR.hI  „-|  • 


Rlr,.SPACE»r'8NTH,  -8nth,h8\tm 

SPaCE.DAY.UaY.SPaCF 

YEAR  RIGhT  ADjjSTE") 

LEFT  A3JUSTEJ 

RIP.  2  BYTES  SF  YEAR  4  2  SPACES 


FIlE  P8IJTER  TS  hEAC  R^h  CL8CX 


BUFFER  FUR  RB"  Cl8C«  DATA 
SAvF  REGS  lj-13 


18 

1 

18 

? 

18 

3 

18 

it 

18 

5 

18 

6 

18 

7 

18 

8 

18 

9 

18 

13 

18 

11 

18 

1? 

18 

13 

18 

1* 

18 

15 

18 

18 

18 

17 

18 

IS 

18 

19 

18 

2? 

18 

2; 

18 

2? 

18 

23 

18 

2» 

18 

25 

18 

26 

15 

?7 

U 

2« 

18 

29 

18 

3- 

18 

31 

IS 

i? 

IB 

J3 

18 

3« 

18 

35 

18 

36 

18 

37 

IS 

3" 

18 

39 

18 

»? 

18 

"1 

18 

*»? 

18 

»3 

18 

Ufc 

18 

•  5 

18 

"6 

18 

W 

18 

".9 

18 

»9 

18 

SO 

18 

51 

18 

52 

ie 

53 

18 

5» 

18 

55 

18 

56 

1" 

57 

13 

5" 
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2.6.28    SUBROUTINE  TSTAP 


ROUTINE!   TS 

r»p,TY"Ee J 

.    • 

TSTai-,  TYPE" 

UT 

BE> 

TSTAP 

3£( 

typfjut 

«Et 

«AS< 

-.1->SA» 

RES 

16 

TSTAH 

LCI/7 

7 

ST,  ,7 

WEGSAV 

TIJTP 

TIi). 13 

a'EO1 

BCk"»i2 

tovtp 

LI. 7 

b 

faCS'3 

TPERW 

LI, 7 

i 

LB,  1  i 

13 

Cti,  lj 

"KTI6.7 

BA\Z 

TPERK 

BD.i.7 

*-2 

TPE«« 

MI, 7 

b 

A|,7 

ERR1ESS 

ST., 7 

TYP£8lJT+a 

Cal1,2 

TYPJOUT 

TPtxT 

LCI 

7 

. 

L'l.7 

KEUSAV 

B 

•15 

TQVTP 

TO,. 13 

A'EO- 

LI. 7 

it 

C-,13 

"ASK.l 

bAt 

TPERR 

mt./i 
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RESTPRe  ^EoISTfRS 
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AND  EXIT 

INT  P£ND,BUSY,UNuSuAL  EN3 


16 

1 

16 

? 

16 

3 

16 

A 

16 

5 

16 

6 

16 

7 

16 

8 

16 

9 

16 

10 

16 

11 

16 

12 

16 

13 

16 

1» 

16 

15 

16 

16 

16 

17 

16 

18 

16 

19 

16 

20 

16 

?i 

16 

22 

16 

23 

16 

2A 

16 

25 

16 

26 

16 

27 

16 

28 

16 

29 

16 

30 

16 

31 

16 

3? 

16 

3  3 

16 

34 

16 

35 

16 

36 

16 

37 

16 

38 

16 

39 

16 

*o 

49 


2.6.29    SUBROUTINE  TSTLP 


• 

TSTLH 

DEF 

TSTLP 

R£F 

TYPE8UT 

REF 

MASK 

RES 

1 

1 

RES 

1 

DAT* 

0 

PTMP1 
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1 

TSTLP 
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? 
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•15 

ST»»1* 

I 
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LI, 6 
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STR  IN  BUFFER 
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SCAN  F8R  ERRBR 
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2.6.30    ROUTINE  I 


rbutIne:     rtni 


.  FMAKK 

,  KMAST 

,  QMAST 

,  QCNT 

FPPF,  xecc,  KH, 


,   1AST19I  . 

.   fAST  / 
.   IMAST 

LF0PM2),     „C,  TRDLY, 


'.BCNT(»  ), 


C         •         RTNI 

SJBR9UTINE    RTM 

INTEGE*    HDA 

IMTEOEK       AHtC,AMlST,AJJ,BL«S#BLZP#CC2,CHSET,CLENG.Cr.L'»G.C«WAL, 

1  CnAe,C'<0IS,CNTLN,CS,CTP,D,DA,DATE,DBUF,DCF,DFAlL,DI-S,:)LOAY, 

2  D"lALF,D*l8DE.D3F,D9*,DS,0TLN5,UTTAB,DU"Yi,OUnY2,DI'.L,0kLP,E  'AST, 

3  Ev,TFL,EaDT.FAlL.FLTAB,F^A-(<,FfC,F-1THD,FS,FSTFL,FTAB,FTB  JD.MEJUFL, 
»    HUll#HDl2<HBgi,HDzejHD3ljHD<,liHD51»HLIDF»HLI0T#H»1AST»HRF.,usBl&j 

t,    rtTEST,HTST,90AV,PATNM,PRC3U,PHTFL,PRVD,PTI>,1«PTN,CCNT,'JPT,;JS« 
fe   RAwBC,RAKS|i'«RS,RTC,  SBARiSCCNr»SCOFC/St:NSI»SCS»SrCFC#Se-MSKj 

7    SPACE,S.<DIS,SS,SSF*,S7PT,ThSIZ,T8YTe,ThrSh,T!HE,T9Su,TBSU1» 
1!    TSTRT,TSuA,TXA,TxK,TXS,T*T,  VHIST,  vBL,"fAS7 

-  INTEGER    SHTfL,    OAY-K,     STLP.    PaGNM,    Su"*S,    DJ.SU",  9SU«,  SSJ*,  SSUf'>, 
X    STpS-l.TTSj",  vSuM,DLSCT,9SECT,r;SECT,SSFCT/sTpSC,TTSCT,  KSECT, 
x    DLTP,t9JC,STPTP,     ,/DAY,    9PL,    AvSP,    TTT"P, SUA Y, T"PS, 0, 3MAST 

CB^hSN    /mCUS/    IDr%r-DA 

CB^f'BN    /BLK6    /       FHC 

•  11AST  i       JHAST 
.    H-*AST  ,       n"AST 

•  SPACL  /        MPflKY 
Ca^BN    /BL«9/    USP»(2»)» 

1  SLTLN(138)»    SLFDP(U) 
INTEGER    SCTLN 
CB*1H9N    /BL<11/       HSH15I32) 

2  LNKUI(6t),N08L(69>»N9NCS, 
.    TBSU 

CB^MBS    /8L<12/    D(138)iDAYWK,JJ0UM, 

•  LNKSI(3)  j       PATMOI  ,       PRTFL 
.    SCCM(29)»SSF* 

C9"IMB\    /BL<13/       DWLI259)  ,       DWLP(|7) 
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C...  THi    a-(Ra»    LNKPTI6*)    «AS    ChamSED    TB    L<PT>M6»)     IN    THIS 

£;••••  bEC*USE    8F    *    LABEL    cBMFLIcT    IN    THIS    PH9GRAM. 
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•  KCLI17),  <LTF(l7),  KCSFI17), 
,  VR I  NT (123)  i 
,  HBUFL  i 
,  NC*22  i 
,  NHCTL  < 
,  NPAIB  j 
,  TBSIZ  j 
,  FS  i 
,  SS  i 
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.    MI|3l)  ,       RAaBC(258>       ,       RAkiSP(?58)       / 

.    TSTRT(516> 

CB^mBm    /BL*2;/    AVSP<    DLDAY(138)<    NSDAYI138)' 
1    9PT<    SDAY[138>,    VDAYI138) 
CBIMBN    /<3L<2<»/    AHIST1138),     CNDIS,    DCF, 

,       F:1T9D  .       FSTFL  , 

NHDAY  ,         PRCBD  ( 

THRSH,     VHISTI138) 

MAL.(l7)j    C"'TA8(258I/ 

,   DMALF(l7I    i       JM8DE 

,   H8DES        /   NAI 
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CB^KBN    /ISuB]/    IBRx.MwSEC/ IPQKY 
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h021(    S)#nD2K    4)/ 
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'.        ",Eh    ',        • 
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.S( 1 >«  TXS(2>/  '  SEC'#  •  T  ION  »  /■ 
.T(l )<  TxTI?)/  i  TIT'. ial  '/ 
iMIl'    '    M     •/ 

aA(!)»     TxA(?>/     •     AVE'a 'SAGE1/ 
uATa    EB3Tact\KS    » I SAVfa JJaSTPTP 
.        /     '2-j;'.'  'a  1.     1<  1/ 

,;aTa    ~jLZP/    ■     0.     •/ 
;»1<    TdSol    /'0CC3'/ 
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IEAF.i 
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JJ         •     1 

-ELEASt    LI.nL    P"!ME« 

CALL    CaLWL 

IFIFMTdO.NE-:)     G8    T8    101 

TEST    FBS    SHOT    03*'. 
IF     (SiTFL.    "*£•    r>)       69    TB    131 
~LlDF    .    j 

1F(\h,3»V.Ej..' )    r,8    T8    1C2 
SS    1C5     In. 1.3 
iTST( Im)    .    UATEl IH) 
CBNTlNuE 

CALL    SeYTC("TST,l ) 
-TST(?|     •    LATE:(2) 
CALL    SdYTC(HTST(2),1  ) 
IH    •    3 

VI    •    3.\-(DAT 
CBNTIMuE 

IFIHTST  II  )  .^E.HLlOTI  IH*d  |    (js    T8    103 
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-HTEST    .    HLIJT(I^  +  3| 
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26 

166 

26 

167 

26 

168 

2f. 

169 

26 

170 

26 

171 

26 

172 

26 

173 

26 

17* 

26 

175 

2b 

176 

26 

177 

26 

178 

26 

179 

26 

ISO 

26 

111 

26 

15? 

26 

183 

26 

184 

26 

185 

26 

186 

26 

187 

26 

1«8 

26 

1H9 

26 

19; 

26 

HI 

26 

1"? 

2» 

193 

26 

1  '* 

26 

1=15 

26 

1Q6 

2  6 

197 

26 

19? 

26 

199 

26 

230 
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H02M5)  ■  BLNKS 

-ID21  ( <>  I  •  bLNKS 

D9  1*  I  •  1>* 

CALL  SETBY(TSUA,I    ,ICH) 

CALL  PTBY(*U21, I«17» ICH) 
1*    CSMI\^E 

TSSu  •  T9SU1 

CALL  ElSRT|E9Dt»HD31<*)  ) 

IF<  IPi^T.NfO)  G9  T8  100! 
C.--.  3EUICATE  TmE  LINE  PRINTER 
C 

CALL  CaLIS 

c 

CALL  TSTLP1STI.P) 
IF(STLP.EC.r)  08  TB  60 

PAHNM  •  0    • 

C.i.  HE*E  PlACE  E;M0  9F  DAY  HEADER  1MB  LlNF  PRINTER  BUFFER 
~'l5  -C^TlNuE 
C."«  SET  LP  CBOfc  ANU  SPACE  0  LINES 

LVJEX  ■  LNDEX  ♦  59 

NbYTE  •  18 

CALL    STlSG    <2,1BN0x»LCNT»LNDFX»h311»NByTEi 

CALL    ST^SG    f».IBN5A»LCNTfLM>EX.  3.  0) 

LNJEX    •    LNDtX    ♦    »8 

N8YTE    •    36 

CALL    ST1SG    (2, IBNDX,LCNT.LNDEX,MDA    ,\PYTE) 

CALL    ST-ISG    (».  IBNSx.LCNT.LNDfX.  0*  0) 

LNDEX    .    LNCEX    ♦    31 

X8UE    •    El 

CALL    ST1SG(3»Ib\DX»LCM#LN3E«,HD21#NpvTE) 

LNDEX    ■    LNDEX    ♦    31 

MO'TE    •    21 

CALL    ST^SGlZv  Ib\t)X.LCNT/LNOEx»HD31«NBVTE  ) 

CALL    ST-ISGl*. IbNDX.LCNT.LNUEx/  0»  01 

..NJEx    a    LMDEX    ♦    16 

NBYTE    a    106 

CALL    ST"SG(2.  IdNDX,LCNT,LNJEx/"D*l.NPYTEl 

LN'JEx    •    LNOEX    «    25 

Mb'TE    •    96 

CALL  ST;-.SG<2j  IBNDX#LCNT/LN3EXfH031#N'BYTE  I 

Call  STMS6<»»IbNDX«LCNT#LM5Exj    o<     0] 
C...  HE^E  COLLECT  LINK  CATA  AND  PLACE  INTO  LINE  PRINTER  BUFFER 

IF<  |P3«.Y.Nt«0)  08  T8  1001 

OlSU"  •  0 


NlSS   . 

0 

NLIS   • 

0 

NLSPS  . 

0 

esj^  • 

J 

i.SJti  • 

0 

ssjc  • 

o 

STHS*  • 

(J 

TTSU^  . 

0 

wSJh   a 

0 

lBIPI 

ILNKP.i 

CBNTINo 

3LSCT  . 

0 

NLS 

c 

NLI     ■ 

0 

NLSPT  a 

0 

SSECT  a 

0 

iSECT  a 

G 

SSECT  a 

c 

STPSC  a 

0 

TTSCT  a 

c 

»StCT  a 

0 

OBJFCl ) 

• 

38UFI21 

■ 

TXSU  1 

TXSI2) 
CALL  ElSRT(  JJ.OA) 
DSJFI3)  a  JA<2) 
CALL  M»LF(LNKS1, JJ«1,LIM) 
L99P2 
CSNTInlE 

Call  H»LF(SLTLN.IL'.XP/LNKPT) 
L\l«PTaLNi<PT*l 

CALL  5FlBY(ND8L,LNKPT/NDTL> 
IF(NDTl^EO.O)  G9  T8  29 
NLS  a  NLS  ♦  1 
NLSS  a  NLSS  ♦  1 

CALL  "ALF  ( v<UAY,LN<PT,  INCV) 

VSECT  a  VSELT  ♦  INCV 

VSUM   a  vSj"   ♦  INCV 

CALL  riALFieUAY/LNKPT,  INC) 

8PC  a  INC/NRPT 

3SECT  •  8SELT  ♦  BPC 

9SJM   a  85'^   ♦  BPC 

CALL  3ET^Y("8EIF,LNKPT» ITST1 | 

CALL  GETdYlUFAIL'LNXPT, ITST2| 

IF( ITST1.E a«0  -8R.  ITST2.EJ.0)  G6  T9  18 

AvSP  •  0 

TTTMP  a  0 

G9  TB  19 

G9"*TINuE 

NLSPT  a  'ILSPT  ♦  1 

NLSPS  a  l.LSPS  ♦  1 

CALL  HALF(SUAY»LNKPT,THPS) 

AVSP  a  (TMPS.*)/NRPT 

SSECT  a  SSELT  ♦  AvSP 

SSUK   a  SSU™   ♦  AVSP 

CALL  MALF(D»LNK.PT#IDaL) 

TTTf-.P    .    < ImCv.IDBL»128>    /    (AvSP"5260)«8 


26 

231 

26 

202 

86 

203 

26 

23* 

26 

205 

26 

236 

26 

207 

26 

238 

26 

209 

26 

210 

26 

211 

26 

21? 

26 

213 

26 

21* 

26 

215 

26 

216 

26 

217 

26 

2ie 

26 

219 

26 

223 

26 

221 

26 

222 

2b 

223 

26 

22* 

26 

225 

26 

226 

26 

227 

2b 

22" 

26 

2?9 

26 

233 

26 

231 

26 

23? 

26 

233 

26 

23* 

26 

235 

26 

236 

26 

237 

26 

238 

26 

239 

26 

2*0 

26 

2»1 

26 

21? 

26 

2*3 

26 

2»* 

26 

2*5 

26 

2*6 

26 

2*7 

26 

2*8 

26 

2«9 

26 

250 

26 

2bl 

26 

25? 

26 

253 

26 

2b* 

2b 

255 

26 

256 

26 

257 

26 

258 

26 

259 

26 

263 

26 

261 

26 

26? 

2b 

263 

2b 

26* 

26 

265 

26 

266 

?6 

267 

26 

268 

26 

269 

26 

273 

26 

271 

26 

272 

26 

273 

2b 

27* 

2b 

27S 

26 

276 

2ft 

277 

26 

278 

26 

279 

26 

2*3 

26 

281 

26 

28? 

!b 

283 

26 

28* 

26 

2»5 

2  6 

286 

26 

287 

26 

238 

2b 

289 

2b 

290 

26 

291 

26 

292 

26 

293 

26 

29* 

26 

295 

26 

296 

26 

297 

26 

2*8 

26 

299 

26 

330 

2b 

301 

26 

30? 
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19  C9NTISUE 

TTSCT  •  TTSLT  ♦  TTT^P 

TTSUM  •  TTSU1  ♦  TTT1P 
C...«  HE«E  CBNvEWT  INT9  90TPUT  FBRiAT  AND  ST9RE  IMS  LPBuF 

C*Wi-  ElSRT(LNKPT.DA) 

J8JF<5)  •  ,jA(2! 

CALL    ElSWTI I\Cv,09uF(7> ) 

CALL    Sc»TC|U3i>  (7),1) 

CALL    JtCHN(TTTiP,S»l-'BijF(n  )  ) 

CALL  SsVTCl'JHUf  (111.21 

CALL  DtC8Nc9PC.2»0BUF(22) 1 

CALL  SbYTC(DBuF(22)»2) 

CALL  3FC8N,(AVSH#5,DBUF{29)) 
2b    C9NTI'JoE 
C>...  PSIM'.I 

idJFllal  •  BL\<S 

id-IFIlul  •  Bln*S 

0BUFU91  «  BLNKS 

0BJFI2O)  •  BLNKS 

DBUFI26)  ■  BLNKS 
il         CS^TI^uE 
Z""     CLtAROAY 

L^DEX  •  LNUEX  ♦  1 

vBYTE  •   iao 

CALL  STMSG<2»  IbnDX,LCnT>LNOEx»0BUF,\byTE:) 

IL^KP.ILNKP+1 

IF<LCNT.GE.53l  GB  T8  32 

DBJFUl  •  ULNKS 

SBUF(2l  >  BLNKS 

3BJFI3)  •  eLNKS 
C....  L99P3 
2»    CSMTINuE 

IF(  ILN«.P.LE»LI"l  86  TB  17 

IFILCNT.LT. f>)  G9  TB  3C 

GB  TB  ii 
29    CBNTINlE 

ILNKP. ILNKP*1 

GS  TB  28 

c...  he^e  calculate  tbtals  and  avfrages  fbr  secubn 

3U    CSMlNuE 

AVSP  •  SSECT/NLSPT 

TTThP.  TTSCT/NLSPT 

BPL   •  9SECT/NLS 

DBJFln  •  TXT(l) 

0BJFI2I  •  TXTI2) 

D8JFI5)  ■  BL'JKS 

CALL  ElS*T(VSELT,5bOF(  7), 

CALL    SdTTCIUBUF (    7)»1 ) 

CALL    3ECBN(TTSCT,5,CBUF(11 ) ) 

CALL    StmClUBuF  (11  l<    2) 

CALL    bTMSGCI.IoNDX.LCNTjLNDEx,  0.  c> 

L\'JE<    •    LNLEx    *    1 

\D»TE    •    80 

CALL    ST'"SG|H,  IdNDX.LCK'T.LNUEx.DBUF, MBYTE  | 

DSJF(l)    .    TXA(l) 

0BJFI2)    •    TXA(2) 

0BUF(7)     •    aLNKS 

DBJFI8)     ■    clLNKS 

CALL    ULCBMTTT1P»5.DBLF(H)  I 

CALL    ScYTCUBL* (111.21 

CALL    DtC9N[8PC.2.0BUF(22) 1 

CALL    So*TC<tf8U* 1221.21 

CALL    iJfc.CBN(A1<SP.S.  JBUFI29)  1 

CALL    ST~1SG(8.  I»NDX.LC\T.LNJEx»  0.  01 

L\'PEX    •    LNJE«    ♦    1 

MBYTE     •     12j 

CALL    ST"lSG(2.  tBVDX.LCNT.LNDEx.UBJF.Nl-YTEi 


CALL    ST«SG(».ISNDX.LCNT»LNUEXj  0.  CI 

IFC  JJ.GE..NMSCT)     GB    TB    35 

IFILCMT.GE.52)       G9    T9    3* 

JJ    ■    Ju    +    1 

GB    TB    16 
C...    HL-<E    P*IMT    9JT    SYSTEM    PERF9K--.ANCE 
31  CSNTlNuE 

CALL    ST'-loGct.  IBNDX.LCNT.LNJEx.  0.  01 

LMJEX    •    LNDtx    »2 

MBYTE    •    12» 

CALL    ST^SG    (2.  IBMD»,LC^T,LMDEX.HDl2»MeYTE) 

LWEX    •    LNJEX    ♦  ? 

MBYTE    •    121 

CALL    ST-SG    (2.  1RND*.LCnT»LMDe.x<WD22»nByTE) 

CALL    ST^SG    (»/ lBNDx.LCMT.LMQEA.  C>  0) 

9PC    •    BSJ^/^LSS 

AvSP    •    SSU'/.-.LiPS 

CALL  EiSrfTi  VSLK'.DBuF(7>  1 

CALL  SbYTCI'JHuF  (71.11 

CALL  DfcCUN(TTSU".5.DBUF(H  I  1 

CALL  SaYTClUSUF (111-1) 

CALL  CiEX9N<»PC»2»DBUF(22> ) 

CALL  ScYTClUHUF(22).ll 

CALL  JiC9N(AvSH,5.0BUF(29) 1 

uN'JEX  .  LNOEX  *2 

MBYTE  •  12^' 

CALL  ST1SG  (2.lBM3x.LCNT,Ls'DFX.DBUF.NBYTEi 

IB*X  .  IBP*  ♦  1 

GB  T9  Ji 
32    C9NTINJE 

[PliKY  .  IPGKV  ♦  1 
33    CB^TIr.uE 

CALL  PkNTF(LCNT) 

HAST!  1.'  AST  1»2 

GB  T6  110 
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26 
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26 

31» 

26 
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2b 
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26 
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319 

26 
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26 
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26 
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26 
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26 

325 

26 

326 

26 

327 

26 

328 

26 

329 

26 

330 

26 

331 

26 

3)2 

26 

333 

26 

33» 

26 

3  35 

26 

336 

26 

337 

26 

338 

26 

339 

26 

340 

26 

3»1 

2t 

3*2 

26 

313 

26 

300 

26 

315 

26 

3»6 

26 

3»7 

26 

3»B 

26 

3»9 

26 

350 

26 

351 

26 

352 

26 

353 

26 

35» 

26 

355 

26 
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26 
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26 
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26 

359 

26 

360 
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3A1 

26 

362 

26 

363 

?6 

36» 

26 

365 

26 

366 

26 

367 

26 

36" 

26 

369 

26 

370 

26 

371 

26 

372 

26 
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26 

374 

26 

375 

26 
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26 

377 

26 

37R 

26 

379 

26 

3«0 

?6 

381 

26 

38? 

26 

353 

26 

3t» 

26 

385 

26 

3*6 

26 

387 

26 

388 

26 

389 

26 
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26 

391 

26 

39? 

26 

393 

26 

390 

26 
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26 
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26 
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26 
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26 

399 

26 

too 

26 

*01 

Sb 

to? 

26 

"03 

26 

»08 
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51    CBMTInuE 

MaSEC  •  WWSEC  ♦  1 
JPjKY  a  IPG^Y  +  1 
C.B  T9  3) 
C....  SLTuMr.! 
K-Ol  CBMI\uE 

JPoKY  .  IP^V  -  1 
IF(N«.SEC.NE> ?)  SB  T«  1002 
OS  TO  yB 
1002  C9">TlNuE 

\«SEC  «  <«SEC  -  1 
jj  ■  Jo  +  1 
09  TB  16 
_-5    CBNTI^E 

I9"<X  •  I9RX  ♦  1 
IPbKY  •  0 
uB  T5  j3 
C...  n£-*t  "itl-NT  9UT  END  Br  DAY  SECTISM  SJr-""APY 

10     CSNTIiUt 
C     Pkl^T  PeEOICTSR  STATISTICS 
CALL  °^P-(E.J 

ce  tb  no 

C...    -E-'L    °nIjT    BUT    E*D    »f    DAY    2B\E    SUMMARY 
bl'        CBNTIMuE 

isi*X    •     I-1RA    *    1 

US    TB    t..J 
C....    L\URPT 

i     >      CJ'-TI'-.E 
c  C3MI  -    t 

JB   e>?    I/.    •    J»V'ln< 

CALL    PT-Lf  (  v.'.ay,  I  Z,  C  1 
L'-L    PliLF^EA'i  12. L  I 

C'LL    PT'-Lf  (SDAY,  17,^) 
Id         CB'TI   ,..L 

'  AbT(  ;■  AST  )■  ;. 

..:•  tb   i  ;c 


26 

105 

26 

106 

2b 

•  07 

?fc 

♦  38 

26 

109 

26 

"10 

2b 

•  11 

26 

112 

26 

M3 

26 

Ml 

26 

115 

26 

•16 

2b 

117 

26 

118 

26 

1J9 

26 

120 

26 

•21 

26 

12? 

26 

123 

?b 

121 

26 

125 

26 

126 

26 

127 

26 

12? 

26 

129 

26 

130 

26 

131 

26 

13? 

26 

133 

26 

1  j» 

26 

135 

26 

136 

26 

•  37 

2b 

US 

26 

139 

26 

110 

26 

10] 
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2.6.31    SUBROUTINE  PRPRED 


R'UTl-t:      prpred 


SjSRBjTImE   prp<fD 

C9K*9  j/?l.K»/    ST  AT  (9#2»S0> SCUMMY (252)  »ML 

C9~^t)  .    /=JL<6    /       FMC  ,       FMARK  ,       1AST19I  i 

•  -i-iAST  ,       J"AST  ,       KMAST  ,       EMAST  , 

•  HiAST  ,       »iaSt  ,       UMAST  ,       IMAST  . 

•  S^Atc  ,       1PUKY  ,       QCNT 
cs^Ke-.   /isum/    IBRX.NHSEC.  1^3<v 
DI«1E>SI3'«    ,_AEEL<»«2)*9uT(9j0i,ST(9),T9TAL<9) 
0nEM513N    C"S(^75,a) 

CPENSI9  .    I*ur1U) 

:pE\si9-.    ,u-,,) 

SpE^SI^  1PPHL>(10)«  IpphCiisA),  !PPpB?(22)<  IPPHDj(17|j 
1     IPP*Dt(2><  [OPH05I10)»  IPPH06C2),  BLARO),  lTL6(5:i) 
REAL  r:l,1g 

LSCMtf./gLTeT/MijMajMMi/RMp.ssjAMi.poBjfiajPZa 

EQUIVALENCE     (ST, Mi | 

EJUIVALEMCE     <8UT,STAT) 

E^-UVAlENCE     (IMjIfNUM) 

EJJIVALtNCEI     "1,     9LAri(p| 

I^TE(>E^    dLAM<,    PL<l-YT,    STAR,    PPIBF 

JATA     oLAJK,     HLKPYT,     STAR,     VEgSG'1'!         ICEC/i  i  ,  3,  1  .. ..  I  ,  I  .1/ 

1   '       . '/ 

DATA    PP19F/     1/  • 

I^TEOF.k    ZERC    CFLG 
jATa    ZtK9/'0J0C '/ 

JATA    L-BEL/'       TA',i\STP','     »»L','UNE     ','     '  »  HANS' »  iTp    S'.'PEED' 
C/ 
JMA    \„STAT/90L/ 
DATA     \STAT/3C/ 
DATA     IkP-iO/'  ', 


1,1    1, 

','S    '/ 

1,1   \8i, 

1 

'  .  '    AV'/ 

a 

','  AVG'# 

','R95  '/ 

','  E""1* 

■ 

i(l  DFV'i 

','REL  ', 

','    ERR 

, 

', 'ERR9'. 

R 

',  'RRBR  '/ 

1  lev 


1  'TATP.'STIC 

DATA    H-P"Dl/'     LIM,'< 

1  '     STD',' 

a  'rms  •,' 

3  '38       ','  P 

OaTa  IpPhDc/'PREDi, ' 
1  'REL    ',' 

p  '«s       ',' 

3  'L  '/ 

[.AfA      IPP-iOJ/      IFRHSI.IR 

1  'RR3R',' 

f  'RBR    ','  E 

3A  TA    ^  P><0»/     'LRK8'  ,  IB 

JATA    IPPHCr/'GT    .','05 
1  '    cao'.'RECT 

G9    T9     i     1,     12,     49), PPIBF 
1    PPIBF    .    1 

CALL    3fcT3Y(     BL*M«,     1,    BL<BYT) 

\|V"0 

call  buffer  imis#i»ckw»55o»ii»mn) 
J  ■   1 

11  1F(  j  . GT.  2)   GB  T8  50 
1UNIT  .  1? 

lL«C 

08  2  L.1,9 
T9TALIL >«0«0 

1  1F[  Io\IT  .GT.  1 7 1   JB  T9  4C 

CALL  BuFFER  INI IUNIT,l»STAT,v,wSTAT, II, NN) 

I  ■  l 
5  IFC  I  .GT.  MSTAT)   G8  T9  20 

LL'LUl 

lF(LL.iT.\L)  GB  T9  42 

\.STAT( l, J, I ) 

IF(  \  .Lt<  C)   GB  T6  100 

Ml»STAT(2,.o»  I  )/K 

Y.STATlS, J, I )/\.Ml.«2 

IFIY.lT.O.)  V.S.O 

•^■SuRT(Y) 

R-U.STaT(k,  J,  1  )/N 

Y» ST AT  I  5, J, 1 |/N.RM1«»2 

IF(Y.LT.O'O)  Y«0'0 

RIS.SakT(Y) 

SS'SORT (RK1»»?»RM2««2) 

A11.ST«T(6, J.  I )/N 

P0S.STAT(7, J«I )/N 

P15.STATI8, J,  I )/N 

P2J»ST>Tl9,  J/I)/^ 

09  6   1N01  ■  1,  9 

TE^P  •  ABSl  BLARI INDl ) ) 
IF(  TE'.P  .GT.  9999.0)   58  TB  100 
o  C9^TI\>,E 

IF(  C8*<  LL'  J)  "GT.  9999999.0)   G8  Tfl  100 

09  7  L«1.9 

T8TALIL)  •TBTAL(L)*ST(L) 

IF(LlN£.ME.»OI  G8  T8  15 

LlNE.J 

IF(  PPI8F  .EQ.  1  )   GB  T8  12 

CALL  PnNTFI  LCNT  ) 

MASTl  piAST)»2 

RETURN 

CLEAR  LIME  PRATER  BUFFER 

12  I8PT  •  5 


PRE', 'DICT', '3R  SI, 


S', 

PR8', 

,'AVG  ' 
'TO  ', 
'B    ', 

Ul 

RE', 

REL'» 

.'EV  1 
'L    ', 

>     R 

ERR'/ 

',  'EL 

'BR   '  , 

ST' 

>'  .20' 

27 

1 

27 

? 

27 

3 

27 

A 

27 

5 

27 

i 

27 

7 

?7 

8 

27 

9 

27 

10 

27 

11 

27 

12 

27 

13 

27 

1» 

27 

15 

27 

lfr 

27 

17 

27 

18 

27 

19 

27 

2? 

27 

?1 

27 

?2 

27 

?1 

27 

?k 

27 

?5 

27 

?t 

Si 

27 

27 

29 

27 

29 

27 

31 

27 

31 

27 

32 

27 

33 

27 

3  A 

27 

35 

27 

36 

27 

37 

27 

38 

27 

39 

27 

"9 

27 

M 

27 

*2 

27 

A3 

27 

4« 

27 

»5 

27 

"6 

27 

♦  7 

27 

AB 

27 

A9 

27 

50 

27 

51 

27 

52 

27 

53 

27 

5A 

27 

55 

27 

56 

27 

57 

27 

58 

27 

59 

27 

*0 

27 

61 

27 

62 

27 

63 

27 

6  A 

27 

65 

27 

66 

27 

67 

27 

68 

27 

69 

27 

70 

27 

71 

27 

Ti 

27 

73 

27 

7» 

27 

75 

27 

76 

27 

77 

27 

78 

27 

79 

27 

80 

27 

«l 

27 

S2 

27 

S3 

27 

84 

27 

95 

27 

86 

27 

»7 

27 

88 

27 

89 

27 

90 

27 

91 

27 

92 

27 

93 

27 

9. 

56 


ppieF  ■  a 

1BMQX  •  1 

LCNT  .  1 

LNDEX  .  722C 

NBYT  •  1 

CALL  STMSGl  IBPT,  IBNDX,  LCNT,  LNDEX,  IPPHD,  NBYT) 

PRINT  TITLE 
D6  13   INDEX  .  1/  * 
IPPH0( INDEX)  •  LABELI  INDEX/  J) 
U      C8NTINUE 
I5PT  •  2 
\B»T  •  00 
LNDEX  .  38 
CALL  STMSGl  I8PT,  IBNDX,  LCNT*  LNDEX,  IPPHD,  NBYT) 

SKIP  A  LINE 
H*T  .  » 
CALL  STISGl  I8PT,  IBNDX,  LCNT,  LNDEX,  IPPMD,  NBYT  I 

PRINT   LABELS 
!9<>T  •  2 

LNUEX  •  LNDEX  ♦  7 
NBYT  •  96 

CALL  STMSGl  IBPT,  IBNDX,  LCNT,  LNDEX,  IPPHD1.  NBYT  ) 
LNDEX  •  LNDEX  ♦  17 
NBYT  •  88 

CALL  STMSGl  I8PT,  I6NDX,  LCNT,  LNDEX,  IPPHD2,  NBYT  ) 
LNDEX  •  LNDEX  ♦  35 
NBYT  •  68 


27 

95 

27 

96 

27 

97 

27 

98 

27 

99 

27 

100 

27 

101 

27 

102 

27 

103 

27 

100 

27 

105 

27 

106 

27 

107 

27 

108 

27 

109 

27 

110 

27 

111 

27 

112 

27 

113 

27 

in 

27 

115 

27 

116 

27 

117 

27 

118 

27 

119 

27 

120 

27 

121 

CALL  STMSGl  18PT,  IBNDX,  LCNT,  LNDEX,  IPPHD3,  NBYT  ) 
LNDEX  •  LNDEX  ♦  52 
I9PT  •  3 
NBYT  .  8 

CALL  STMSGl  IBPT,  IBNDX,  LCNT,  LNDEX,  IPPHD*,  NBYT  ) 
I9PT  •  2 

LNUEX  •  LNDEX  ♦  19 
NBYT  •  »0 

CALL  STMSGl  I8PT,  IBNDX,  LCNT,  LNDEX,  IPPHC5,  NBYT  ) 
I8PT  •  * 

CALL  STMSGl  I8PT,  IBNDX,  LCNT,  LNDEX,  !TLB»  NBYT) 
15  LINE  ■  LINE  ♦  1 

ENC8DE  (120,2001,  I  TLB(2)  )  LL,  N,  Ml,  p-,2,  rmi  ,  RM2,  SS,  AMI  ,  Pn5,  PIC,  P20, 
1  C3RILL/J) 

2001  F8*MAT<  IX, I*»I9'2F9.2«7F9.3,F15.2) 
I8PT  •  2 

NBYT  •  113 
LNDEX  •  LNDEX  ♦  3 

CALL  STMSG(  IBPT,  IBNDX,  LCNT,  LNDEX,  ITLB,  NBYT) 
100  I  ■  I  *    1 
G8  TB  5 
CONTINUE 

IUNIT  •  IUNIT  ♦  1 
G8  T8  » 
C8NTINUE 
CBNTINUE 
D8  *3  L«l,9 
T8TAL(u)»T8TAL(L(/NL 
ENC8DE  (120*2002, ITLBI2) I  TBTAL 

2002  FBRMAT  (  I  T8TALS« » 7X, 2F9.2, 7F9.3 ) 


IBPT 


SKIP  A  LINE 


CALL  STMSGl  I8PT,  IBNDX,  LCNT,  LNDEX,  ITLB,  NBYT) 

PKINT  LINE 
I8PT  •  2 
NSJTT  •  100 
LNDEX  ■  LNDEX  *    3 

CALL  STMSGl  I8PT,  IBNDX,  LCNT,  LNDEX,  ITLB,  NBYT) 
PPI8F  .  3 
CALL  PRNTF(  LCNT) 
MAST! IMAST)«2 
RETURN 
*9  J  •  J  .  1 
PPI8F  .  1 
GB  TB  11 
C8NTINUE 

D9  70  IO»N«STAT 
8JT( I ).0>0 
D8  75  1.12,17 

CALL  BdFFER  8UT( 1 , l , 8UT, NwSTAT, 1 1 ,NN ) 
IF( II.Nt.2l  G8  T8  73 
CBNTInlE 
IB*X»IBRX»1 
MA5T(  Il-ASTI'l 
RETURN 

END 


27 

122 

27 

123 

27 

12* 

?7 

125 

27 

126 

27 

127 

27 

128 

27 

129 

27 

130 

27 

131 

27 

132 

27 

133 

27 

13* 

27 

135 

27 

136 

27 

137 

27 

138 

27 

139 

27 

1*0 

27 

1*1 

27 

1*2 

27 

1*3 

27 

1»* 

27 

1*5 

27 

1*6 

27 

1*7 

27 

1*8 

27 

1*9 

27 

150 

27 

151 

27 

152 

27 

153 

27 

15* 

27 

155 

27 

156 

27 

157 

27 

158 

27 

159 

27 

160 

27 

161 

27 

1*2 

27 

163 

27 

16* 

27 

165 

27 

166 

27 

167 

27 

168 

27 

169 

27 

170 

27 

171 

27 

17? 

27 

173 

27 

17* 

27 

175 

27 

176 

27 

177 

57 


2.6.32    ROUTINE  J 


RBUTlNEI       «TVJ 


*T\J 

SJBRBuTlNE  RTNJ 

MAP  CS.TRBl  RSuTINE 

IMTEQ£n  CNDIS,  «BLD,  C«ALF,  TrtKSM, 

InTEGEk  CICtF,CrMAL»3^»LF.»«CeO 

INTEGER    AHCL 


CB^MBN 

/BLM5/ 

CHSET 

,   HBUFL 

"Nu^F 

1 

N8-H.H 

,     nc*22 

NCh«D 

j 

NMANP 

.   N^CTL 

NlSCT 

, 

nmvEQ 

,   NPATB 

\1ES» 

, 

NST"1 

,   TBSU 

cs 

, 

OS 

»   FS 

ss 

, 

RS 

,   SS 

C9"<M8N 

/SL<17/ 

ADv>.H(i) 

,   CICtfP<?) 

IAOVP 

»l      l 

C\/TCR(124> 

,   C\TN" 

INTN-1 

31) 

1T\*L(J1) 

,   !NTBU,3?) 

STBTx 

321.  Til- 

EB(J2),  CVB« 

(»9) 

LB^MBn 

/OL<19/ 

CICTF(rS) 

,   CT90F(S) 

CnTb 

65)    . 

CURBF(31) 

,   CyClC,31> 

£N8FF 

3D    » 

uG'jT  (12*1 

,   5A<TP(3i) 

jLABC 

124)   > 

oG»6<124) 

,   GUABCU24 

SSSS(i24|    , 

TK.1I31  ) 

,   «R<8F(3l] 

vbl»    S«ar,    jBaR.    oflay 


IGPI 

\C«I? 

n-iln< 

»PS» 

TBVTF. 

NS 

SCS 

CPAB  ,(ei 

IL? 
<L2 

STUVj|« , 
EMNT(,9o) 
j*aTM  3,  l 
iNTDulk^i) 


WTC 


HLIDF 
PTM745I 


U1BCE 
NA[ 


C9"MBN    /3L<19/    CC2(129I«    DFA]L(69),    D»F(17) 

MI31)  I       RA.»C(258)       ,       RAi(SP(?5g) 

TSTRT(516) 
C8lp3.«    rtU2V    AHI5T(138)a    CvDIS,    UCf  i 

31.-  ,       F1TBD  ,       FSTFL 

HLIDT(96)  i       NHOAY  ,       PKC8D 

S»TFL»    SRJIS,    ThRS*.     yHIST(l3H) 
CB^MBm    /BL<25/    AHCCU38).    Cf"lAL(l7)»    CnABUSH) 

STTAB(258)       ,       DISI17)  ,       D"AlF,17) 

FLTAB(S.JO)       >       HBF  ,       MBDES 

M8FAL/  SBA«(6»)/  SECFC(4)»  SCDFC(4),  V8LI13S) 
C81H8N  /BL<27/13T0P(259)»  LK0SPI136) 
C81M8N/3LK28/AJRI  J<.),PIA(6)»RC«(2)»HS8(1»I<*P911  (1«),CPK3 

~l»R«(dtu)    ,   HHAP(?)      ,   JCNT         >   KCNT 

1MC15        i       MHSBF        ,   CL8CK        i       i^INF 

1INCT        «   TAB(3)       »   N8N8(S) 
OPENSIBM  L"APJ8*01»  ICTPR(8  )j  LN<AB(128)»  KxO(l) 
DIMENSION  MBLOllt).  CICEFI8).  C^IALFlB) 
EUUIVALENCE  (HSLO(l).  HSB(1)| 
EQUIVALENCE  (CICEF(l).  ClCbP,])) 
£UUIvalEnCE  (C'lALFil).  CICTFd)) 
EQUIVALENCE  (MARR(l)j  L«AP(1)| 
JCNT.6 
IF(CNDIS-I)  I,    2.  3 


C"' 

.  A-PhASE  GREEN 

c 

1 

CBNTINuE 

CALL  CuL<  0»  0»  15. 

G8  TB  11 

c... 

.  CBNTR8LLERS  8FF 

c 

2 

CBNTINuE 

CALL  COL< 1<1.0»L"AP) 

M  TB  11 

3 

CBNTINuE 

1FICN0IS-3)  4»  6.  8 

c.»« 

.  C8NTR8LLER  STATUS 

c 

4 

CBNTINuE 

CALL  ClL(  1iC1»L«AP) 

OS   5  u   •  1/  NC*RO 

ICTPR(  i)  .  «BLD(2«-I 

5 

CBNTINuE 

68  TB  li 

C» 

.  :9ntmb^lers  failed 

c 

9 
10 


CBNTINuE 

CALL  CCLI l.:»t.LMAP) 

39  7  N  •  1»  NC*RD 

ICTPRiM  •  -CMALF(2»N)  .  1 

C8NTINLE 

38  TB  10 

CBNTINuE 

IF(CNUIS.NE'I)  GB  TB  11 

CIC  STATUS 

E 
CALL  CUL(1»0.2«LMAP) 
38  9  N  ■  1.  NC«Rli 
ICTPR(N)  •  CICEF12.N) 
CBNTINuE 
C8NTINUE 
CALL  ClS(N-1CTL/L1AP/ ICTPR) 

Q 
CSNTlNuE 

detlriine  the  surveillance  display  sesired 

nl    •    512/INBMO/B) 
OS    12    !•>    •    1'NL 

LN«AR( v)     •     0 


12 

CBNTINuE 

IF(SRDIS.E^'O)  GB  TB 

13 

IF(SRDIS«E3-1 )  G8  TB 

1» 

LiB  TB  20 

Cf 

C 
13 

.  SUXVEIuLANCt  DISPLAY 

8F 

CBNTINuE 

KTMLD  .  0 

3* 

1 

3» 

? 

3« 

3 

.  CRDIS 

3» 

4 

3» 

5 

3» 

6 

, 

3» 

7 

, 

3k 

a 

* 

3» 

9 

, 

3k 

i: 

, 

3* 

n 

i 

30 

i? 

3* 

13 

i 

3» 

Ik 

, 

3» 

15 

, 

3k 

16 

3* 

17 

, 

3» 

1? 

t 

3» 

19 

, 

3« 

20 

, 

3« 

'1 

3k 

22 

3k 

23 

t 

3k 

24 

3k 

25 

3k 

26 

l 

3k 

27 

t 

3k 

28 

3k 

29 

3k 

3C 

j 

3k 

31 

i 

3k 

32 

3k 

33 

3k 

34 

U/CPN8Ti 

3k 

35 

l 

3k 

36 

i 

3* 

37 

3k 

38 

3k 

39 

3k 

40 

3k 

41 

3« 

42 

3k 

43 

3k 

4k 

3k 

45 

3* 

46 

3k 

47 

3» 

48 

3k 

49 

3k 

50 

3k 

51 

3k 

52 

3k 

53 

34 

54 

3k 

55 

3k 

56 

3k 

57 

34 

5! 

34 

59 

3k 

60 

34 

61 

34 

62 

3k 

63 

34 

64 

34 

65 

34 

66 

34 

67 

34 

68 

3k 

69 

34 

70 

34 

71 

34 

72 

34 

73 

34 

74 

34 

75 

34 

76 

34 

77 

34 

78 

34 

79 

34 

80 

34 

81 

34 

82 

34 

83 

34 

84 

34 

85 

34 

86 

34 

87 

34 

88 

34 

89 

34 

90 

34 

91 

34 

92 

34 

93 

34 

94 

34 

95 

34 

96 

34 

97 

34 

98 

58 


CALL  BCDTH  (MTHLD.LMAP) 

CALL  SOLI  O'LMAP) 

66  TB  18 
C...  TCS  SURVEILLANCE  EQUIPMENT  FAILED 
C  M 

1*    CBNTlNoE 

MTH|_D  .  0 

CALL  acDTH  CMTHLD/L^AP) 

CALL  SOL(13»LMAP) 

IX  ■  u 

08  17  jZ  •  1,  MMVED 

IX.  I  *  ♦  1 

CALL  oiTdl (UMALF, I*,KZ,0> 

IFUZ..VE.0)  58  TB  15 

CALL  jEToI  (C-1MAL»  Ix«<Z»0> 

IF(KZ.tQ.O)  S8  T8  16 
lb    CBNTlNuE 

CALL  halF|  IOTDBJ  U/KZ) 

CALL  PTSflLNKA^.KZ.g) 

16  CSMTINuE' 

17  CSNTIN06 

C't'.t  INSERT  L'NkA*  ARRAY  STATE  BITS  INT8  LmaP  ARRAY 
C  L 


1«    C8XT!\UE 

IX  •  3i»329 

SB  19  I  •  1/  256 

CALL  haLF<i_NhAR.I»«.Z) 

KX'J(1)>(<Z«2*«8«KZ)*Z«*8 

CALL  jETdl (KxD#5»<a1»0) 

CALL  IjETBl  («.XU/?1,<X,0I 

CAUL  PTBI  (LMAP, IX»5«KX1<0) 

CALL  PTBI  (LMAP, IX»21,KX,0) 

IX  .  IX  ♦  64 
1*    CSMINuE 

j9  TB  c7 
L.  ..t  FL1»  DATA 
C."t  DETERMINE  PARAMETERS 
20    C9MTIN.LE 

MTMLO  ■  THRSH 

IFIPRCBO.LEO)  GB  T8  21 

IF(PRCBQ-2)22,23»27 
C,.».  8CCUPA\CY 

^21    CSNTlNuE 

CALL  SjLI  5»LMA"> 

ITHRT.l THRSM.2.. 15 ]/10u. 

CALL  TcSlP(AHcC  ,  ITHRT,  0<  NMLNK,  LuDSP,  LNhaR,  LmAP,  ThRShi 

IiB  TB  18 
C....  V8LU«E 

C  N 

2d        CSNTImuE 

CALL  SDL1  b'LMAP) 

ITHRT  •  THRSH«2 

CALL  TCSLPIVBL  .  ITHRT*  0,  NMLNK,  LKDSP#  LNKAR.  LMaP,  THRSH) 

t>8  TB  18 
C.'"  SPEED 

C  8 

23    C9MTINUE 

CALL  SCL(  7»L*1AP) 

ITHRT  o  THRSH»4 

CALL  TCSLP(SBAR,  ITHRT.  \,    NMLNK,  LKDSP,  LNKAR,  LMAP,  THRSH) 

b9  T8  ]8 
27    C9NTINUE 

RE'URN 

£N0 


3* 

99 

3* 

100 

34 

101 

34 

102 

3* 

103 

34 

10* 

34 

105 

34 

106 

3k 

107 

Ik 

108 

3k 

109 

3* 

110 

3k 

111 

34 

112 

34 

113 

34 

110 

3k 

115 

3k 

116 

34 

117 

3k 

118 

3k 

119 

3k 

120 

3k 

121 

34 

122 

34 

123 

34 

124 

34 

125 

3, 

126 

3* 

127 

34 

128 

34 

129 

34 

130 

34 

131 

34 

132 

3» 

133 

3*. 

134 

34 

135 

34 

136 

31 

137 

3k 

138 

34 

139 

34 

1«0 

34 

141 

34 

142 

34 

143 

34 

144 

34 

145 

34 

146 

34 

147 

34 

148 

34 

149 

34 

150 

34 

151 

34 

152 

34 

153 

34 

154 

34 

155 

34 

156 

34 

157 

34 

158 

34 

159 

34 

160 

34 

161 

34 

162 

34 

163 

59 


2.6.33    SUBROUTINE  BCDTH 


ReuTlNH       BCO'h 


C        •        ->CDTV 

SJ»S?JTI  «E    BCDT"    (.'IX,  LA) 
Ci...    SSJTIrtf    T8   LNTER   TmRESHBLD   v»LJE    !>■   MAP   ARRAY 
C  i-i^LSYtD    BY    S60T1NE    J 

&I-EMSI9M    lA(1) 

I9FS    •    32.JJ 

".    ■    IX 

"O    •    M 

»*    ■    16 

B8   2   K   •   1.    » 

MB    •    10/10 

MR     •     M^     •     1D«M'J 

DB    1    I    a    1«    * 

mc  ■  M«/a 

MB   •   MR   -   S'"Z 
IX    .   6.«(<Z-1)    ♦    IftFS   ♦   5 
CALL    "TBI     <LA,Ix,MB»CI 
«Z    •    <Z-l 

MR    •    MC 

1  CSNTINLE 

»3    .    m,, 

2  C^TIr.uE 
«ETuR.< 
END 


35 

1 

35 

2 

35 

3 

35 

it 

35 

K 

35 

4 

35 

7 

35 

9 

35 

9 

35 

10 

35 

11 

35 

1? 

3b 

13 

35 

1» 

35 

15 

35 

16 

35 

17 

35 

18 

35 

19 

35 

p0 

35 

21 

35 

22 

35 

23 

35 

20 

60 


2 .  6 .  34    SUBROUTINE  CDL 


R3UTINEI   C3L 


CDL 
-..^RBjTI  ,E  C5L(I«J.«#L») 

59-JTr.t  T9  SET  C8'iT04LLE!»  JISPLAY  SMTC-ES  AND  LESE\"1S. 
P98CEDURE  ErpLevED  dV  ""JJTIVir  j. 


LEUE'„J  1  •  C9^T^SLLF«  STATUS 

LEJENJ  2  ■  CIC  STATjS 

LEUENl)  i  •  bPS  C^T^LLE"  STAT 

LEUENlI  t    •  C9vTRPLLt?S  FAILES 

;i"E 

»S!3'«  lA(1  1 

CALL 

PTSI(LA,  37.1.0) 

CALL 

PTSI(lA.IOI.J.O) 

38  1 

IX  •  1.  * 

irilXiEQ.K)  <»  •  1 

IA  •  (,.,•< tx-1  )  ♦  165 

CALL  "TBI (LA. IA.Kx.Ol 

C5MTI  ,uE 

KX  •  0 

If  IK  .E'J.  15)   «X  •  1 

I  A  .  8 085 

CALL  PT9I (  LA,  IA,  «x< 

RETURN 


39 

1 

39 

? 

39 

3 

39 

fa 

39 

c 

39 

(■ 

39 

7 

39 

B 

39 

9 

39 

ir 

39 

u 

39 

12 

39 

13 

39 

It 

39 

15 

39 

16 

39 

17 

39 

1? 

39 

1" 

39 

J? 

39 

31 

39 

2? 

39 

23 

61 


2.6.35    SUBROUTINE  CLS 


rdjtI'.e:     CuS 


CLS 
SJBRSjTI'iE    LLSl\»l.A»  IC) 
■iSJTlNt     T8    SET    C8NTS81LES    LAMP    STATES 
ElBLBYi;i3    By    »6l/TI\IE    J 
^l'EMSIS  ■    t<(|li     !C!1) 
I         •     N 
u         •      1 
*         •      1 


la^ST  .  :<7.32 

C9^TInlE 

IX  ■  32«(J-1)  ♦ 

1 

[Y'«  IX  ♦  30 

C'^TlNuE 

!»!•  3S«(K-1)  ♦ 

I8FST  ♦  5 

]Y2.  Irl  ♦  16 

CS^T! YuE 

C»UL  JlTdl  ( IC» 

K/IZl.C) 

C*LL  PTBI   (L»» 

Y1.U1/0) 

C»LU  3ETSI  (IC< 

X*l» IZ2/0I 

C»LL  BTBI   (LA/ 

YJ.  IZ2.0I 

I  •  I  •  2 

IFlI.Lt'C)  J9  T9  4 

*  •  «.  4  2 

IX"  In  ♦  2 

iriu.LE.lYi  cs 

T9  2 

j  ■  J  ♦  l 

Cj8  T8  1 

RET^R". 

E.MJ 

37 

1 

37 

2 

37 

3 

37 

• 

37 

5 

37 

6 

37 

7 

37 

8 

37 

9 

37 

10 

37 

11 

37 

1? 

37 

13 

37 

1» 

37 

15 

37 

U 

37 

17 

37 

1" 

37 

19 

37 

SI 

37 

21 

37 

?? 

37 

23 

37 

2» 

37 

25 

37 

?6 

37 

27 

37 

28 

37 

»9 
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2.6.36    SUBROUTINE  SDL 


*8UTHE>       S3L 


C         *         SDL 

S'JHRBuTlNE    SDL(  I<L*> 
C...    39UTHE    ™    SET    SURVEILLANCE    OISPLAY    IF3EM5S  I    ,    S    T6    |« 

c  ps-»cedl«e  employed  by  psutivt  j 

C  L£t>ENU  S    .  8CCUPASCY 

C  L£*»ENJ  6    •  VBLU'iE 

C  LEliEM)  7    •  SPEED 

C  LEUEm;  8    •  JUEJE 

C  LEl>EMi  3    •  ST9PS 

C  LEbEM  10»  DELAY 

C  LE<»EN<J  11«  PASSEMJEw    UAIN 

C  LE^EMS  12»  SUSES    helPED 

C  It'JENLi  13.  SJPV    E'.urP    f  AILED 

C  LE'JEN^  !<•■  BPS    SU«V    r'JUIP    FAILED 

L/PENSI8'!    LAID 

1  •     1 

;u  i  <.i»i_ 
iA.fc».(<-i  )*■>^l 

CALL  PTBI (LA, IA,0,.  I 
1  C5^TI\uE 

|FII.E^-Ci!  S9  ti  ? 

IA>6». 1+101 

CALL  PTBI (LAi IA,l,ol 
I    C9MTIM.E 

R£TUP\ 


36 

1 

36 

? 

36 

3 

36 

« 

36 

5 

36 

6 

36 

7 

36 

S 

36 

9 

36 

10 

36 

11 

36 

!? 

36 

13 

36 

1  <t 

36 

!  S 

36 

16 

36 

17 

36 

18 

36 

19 

36 

?~ 

36 

SI 

3e 

'2 

36 

23 

36 

2» 

36 

25 

36 

26 
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2.6.37    SUBROUTINE  TCSLP 


191  -'.  Au-l  1?,  •?>, 


TC-LH 

SJCROuTI  JE  TCSLP { LP. IT, IF.NL.LO. LR. LA, I  TO  I 
i  TCS  L!:.<  PARAMETER  P«9CESSI"-3  SUfc)«8UT!'.E 

E-I^LBTED  BV  R8UTINE  J 

1-TEGE-.  OFAlL 

CS^Mg*  /i-L*19/  CC2I129I.  DFAJLI691.  BSFI17), 
.  11(311       »   «A»BC(2S8)   ,   WA^SP(?58I   ,   RTC 
.  TSTRT<516) 

B  PEAS  I-'.  uJ(l  >,LP{  1  ).LW(  D.LAI  1  ) 

I  •  IF  ♦  1 

39  6   .  ■  1>  NL 

38  T9  (1.2.1,2), I 

CALL  haLFil^.NjK-:) 

33  T9  (»,i»,  i.  3),  I 

C*LL  jET-Y<LP»m»KZ> 

33  T9  1+.1.3.3).  I 

IFIKZ.GT.fT)  S3  T9  6 

38  T9  5 

IFIKZ.lE.MT)  59  T9  6 

C8MTIN..E 

CALL  3ETBY(_>FAlL»  M,  IFAlLl 

IF(  IFA1L-NEO)  G8  T9  6 

CALL  HALFlLU.N, [x> 

CALL  PTaY(Ll.IX.B) 

CS^TlNut 

CALL  3LUTH[ 1TR,LA> 

RETu«\ 

FN'J 


38 
38 

1 
? 

38 

5 

38 

1 

38 

5 

38 

6 

38 

7 

38 

a. 

3s 

9 

38 

10 

38 

11 

38 

1? 

38 

13 

38 

1» 

38 

15 

33 

16 

38 

17 

38 

IB 

38 

19 

38 

20 

38 

21 

38 

22 

38 

23 

38 

?» 

38 

25 

38 

26 

38 

27 

38 

28 
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2.6.38    ROUTINE  K 


C         •         *TN*  »0  J 

SUSR8UT I JE  KTNK  »0  ? 

C  10  3 

C         SUB-BUTI^E  RTM<  BUILDS  DISPLAYS  F6R  THE  CRT  AMD  TRIGGERS  THE     »0  1 

C         DEVICE  »HEN  IT  IS  COMPLETE.  10  5 

C  ID  6 

I*UuE*   ArtCC  /   BYTCT/   BSI   ,   C1CCT.   CICEF,   CICSf,  CtC^C/     »0  7 

.  CICTF,   C1»LE.   Cm"AL<   CnSfC,   CNTLN.   CWTF),   CRTFfp,  CRTNM,     *c  8 

•  C-(T«i,   .C«T*1»   CkTa2,   CRTBl,   CRTBJ,   C><TDl,   C<TD?#  CUP8F,     »q  9 

•  CBNTS,   p'TAB,  *CPN1T,   CTClC»   CmLnG,   CLE\G,   DTLsG,  D*L   /     »0  10 

•  DTTAo,  D"»DE/  D1S  .  D"ALF,  DFAJL,  £NTfL,  EmSfF,  F|_TAB/  »0  11 
.  G'oGU  ,  HBLD  ,  P»T\i*,  SLDFC.  SECFC.  SUAh  ,  V8L  ,  CNT10/  "0  1? 
.  CHSET,  FTAb  ,  FTB.C,  FLPFL.  FMTCH,  FhTMU,  FmTTY,  SSSS  i  »0  13 
t  ^I\T.   HRF  *0  1* 

IViTEGE"  TImLh  »0  15 

I\TEUE«   HEAO  ,   FAILH,   X'«B\E«   TYPE  .   ACKN  ,   TKUN  ,  HIST  j      *0  16 

•  9fF8u,   SYSH  ,   HrBDE,   T-<UMU.   CNUMM,   S^Unn,   BFST«,  SYNC  ,     »0  17 

•  UCST,  CIC*  ,  mkIng,  CSTaT.  8FST  /  CYLTh,  HINTv,  TKNPH,  »o  IS 
.  -I1L"«<   ^LNk/   HiL„K.   HLN<8«   HNCNT,   9IRCT.   PmESS.  Y-b   ,     <t0  19 

•  T  IMB.hL'MKD"1  »0  20 
DI'ENSIB*  -ILMKD"(3)  "0  21 
3J1EMSI8.   LICH(  5)»   CICSTl  3),   CNumh{  5)#   CSTATI  3)/  »0  2? 

.           CYLT«(  3)/   DIRCTl  9).   H1LNK<  51/   H2LMI11)/  »0  23 

•  HJLNM11I/    HLNKBI  It)/    HNCKTI  »).    H[NTV(  7)»  *0  2* 

•  HEAD(8»6H    HIST|  2),   HMBOEl  61'   HmINj(  »),  »0  25 

•  ICRt   6)/     ICLl  6)<   IHCNTl  6)»   8FF8NI  21/  »0  26 

•  BFSTI   m,   P*ESSU9)/   LPHAS<  71/   8FST«<  »>,  00  27 

•  S'SH(  31l»   SNJHH<  3),    SYVCI  3)»     TMB(  »)/  *0  28 

•  T1MBI   21/    TYPE!  3)1          TRUM  8)»   ACKNl  21  »  *0  29 

•  TRNPHI  6)<  XN8NEI  31/  FAILH(lg)  *0  30 
CS^Me.M  /HARUS/   F-1TTY        ,   FMTNU        I   FMTCH  ,  »0  31 

•  ITRMi(2>  «0  32 
CSrM8S  /KKKKK/   CMT10          ,    N«C        I  NIC*      /    NMC16   /  »0  33 

.  TRuNKI)  »0  3« 

Ce^MBN  /KCRT  /   BYTCT(2!     ,   CRTR2(?)  ,       CRTNM   ,   CRTA1  i  »0  35 

.  C«TA2  »0  36 

C8"ihB\  /8LK6  /   FMC          ,   FMARK        ,   MAST|91  »          *0  37 

•  11AST        i   JMAST        ,   KMAST        /   E~tAST  >                       »0  38 

•  H1AST        .   hMAST        ,   QMAST        /   HAST  /          »0  39 

•  SPACE  i  MP8KY  ,  OCNT  *0  *0 
CB1M8N  /BL<10/   CICSCI16)    .   CICSY(8)     »   CTlSC(1*I  >          »0  11 

2  CTLSY(4)»C*JSECt31MCNTZNU9,,|.NKCN(69>*  *U  *? 

•  TIMCh(*l  .  2SI 132)  »0  »3 
CB^hBN    /SL<11/      HSB1502)          ,        1G15(««)            1       KW  j                       *0  *» 

2    L^KDI  (6<.).ND8L(69nNe^CS»NecNT(»)/  *0  »5 

•  T8SU  »0  »6 
C8^h8N  /8L<12/  D(138l»  DAY«K,  JJ,  *0  »7 

•  LNKSH3)     ,   PATNM(3)     ,   PRTFL        .   SCNSII?!  ,          »0  »8 

•  SLCNT(29)»SSFi.  »0  »9 
C81M8N  /BL<13/   DWLI259)     ,   DKLP(l7)     .   E8DC  i         »0  50 

1  FTAB,  FTBwD,  n8EIF(b9)  »0  51 

C9^"8M  /BLKU/   CLENG        ,   DTLN3        t       C^LNG  I                       »0  52 

•  DUMY1,  DUMY2,  CNTLN(372).ENTFL(S)/  »0  53 

•  KCLI17M  KCTFI17).  KCSF(l7),  »0  5* 

•  >J1VAR(31)  ,  SEMSKI8)  ,  VRINTI123)  i  LNKPT(6»I  *0  55 
C81M8N  /BLM5/   CHSET        ,   HBUFL        I       IGPI  i                       *D  56 

•  1MUMF       ,   NBnCH       ,   NC*22       »   NC»02  »        »0  57 

•  NLwRO        ,   MHANP        ,   NMCTL        »   NMLN<  <          10  58 

•  N"SCT  i  NMvtD  ,  NPAT8  /  NP3»  i  »0  59 
.  \RESP  ,  NSTM1  ,  TBSIZ  •  TBYTE  »  *0  *0 
.  CS  ,  OS  i  ^S  »  NS  <  *0  *1 
.OS          ,   RS          i   SS          .   SCS  *0  6? 

CS^KSm  /BL<17/   ADvNh(8)     ,   CICBP(g)     »   CPABiC!!  »         *0  63 

•  I»DPI|8)     i    CNTuR(12»)  i    CNTNM       ,  IL2         >  *0  6» 

•  INTN-i(3i)  i  ITN«L(31)  .  INT8U(32)  «  <L2  /  *0  *5 
.  STBT-i|32l,  TIKEBI32)j  QVB»(fc9)  *0  66 

CB^MBn  /BL<18/   CICTFIS)     ,   CT8DF(8)     i       STBYJI8I  i                       *0  67 

.  CNTB(62)    $       CUSBFlJl)    ,   CyClC(31)    i       EnINT<»96I  i                       *0  68 

•  E^8FF(3l)    ,   GGGT(12»)    ,   GA^TPi3l)    >   jB»TP(3i)  <         »3  69 

•  GLABCl  U»)  >  GGGG(12»)  <  GUABCM21)  /  HT0u(»96)  i  »0  ?0 
.  SSSS|i2»)    i       T<1(31)      ,   -RK8F(3i)  »0  71 

C81H8N  /BLK19/  CC2I1291*  0FAILI69).  DBF!17)»  *0  72 

•  MI (3i |  ,  «A»8C(258!  ,  RAWSP|?58l  »  RTC  .  *0  73 
.  TSTRT(5161  *0  7» 

CB^MBN  ,BL<22/   CRTBl(512l   ,   CRTB2(612l   »   CRTDl  i         *0  75 

•  C*TD2  ,  CRTFl  ,  CRTF2  ,  FLRFL  »o  76 
CS^MBN  /dL<25/  AHCC113»)»  C^^ALIW)*  C<TABI258i»  »0  '7 

•  D'TAB(258l  >  0ISI17I  ,  DHAtF(i7)  i  DHBOE  *  »0  78 
.  FLTAB(8001  i       HRF          ,   MBDES        i       NAI  ,         »0  79 

•  NBFAL.  SBAW(69)»  SECFCID*  SCDFC(I),  V8LI138)  »0  80 
C8"lHBM/BuK28/AGR(14),PIA(6)»RC1(2)»HS9(l*)»AP8ll  ( 1»  I ,  C°'^U.  CPN8T»   *0  81 

.  1ARR(g»0)     I        HMAP(2)       ,   JCNT          I       KCNT  i          »0  8? 

•  HNC15        ,       -HSBF        ,   CL8CK        .   «"IIVF  ,         »0  83 

•  "INCT  >  TAB(3)  .  N8N8(8)  *C  8» 
C91H8\  /1ISCL/  CICINH(8).LS0l3)«CYCREF(5l  »0  85 
IVTEGEk  CICINH.CYCREF  »0  86 

C  »0  87 

DATA  NRTIt-/  0/  »0  88 

3ATA  IRPAR/M/  »0  89 

DATA  LEAD  /126/  »0  '0 

DATA  Im8ME/1S/  *0  91 

DATA  IDEL  /127/  »0  9? 

DATA  Ic»(l l'ICC(l).  ICR(2)i ICC(2)»  IC»(3)<ICC(3)i  1CR I » I . I CC I • I »    »0  93 

•  ICR(5)» ICC(5)J  ICR(6|< ICC(6)/  2,24,  2, 26,  2,2»,  ?»25«  2#23«    »D  9» 

•  5,2*/  »J  95 
JATA  IhCNTa),lHCMT(2)»  IHCNTO),  IHCNT(»),  IHCNT(5),  IHCVT(6)/  »0  96 

2»,  2*/  28,  28«  32/  32/  *0  97 

»0  98 


•      2»»  2»»  28,  28,  32/  32/ 

DATA  LPHASIl >,LPHAS!2),LPHAS(3)/LPhAS(»),LPH»S(5)/LPhaS(»), 
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LPW*S(7)/   65<  65»  66<  6,6'  67/   0<  68/ 
DATA  TltS/t   TI i. i st I  '/ 
DATA  H£A0(lfl)»HEAlJC2.1  )»HtAD(3,l  ) ,  Hf  AC  (  t«  1  )  .HEAD  (  5»  1  I .  mca;(  6,  J  )  / 

'*»*»•  .   I  FAp  ,   'LLWEi  »   •  STAi  ,   'TUS  I  ,   i**i*'/ 
DATA  "tA0(l/2),HEAr,  (2»2)»HEAr>(3,2),MFAr:(<»,2i,HE»D(5<2!<"IEA:(6»2)/ 

'*»**'  .   •  SYS'  »   iTES  ■  .   'STaTi  ,   iuS  »"  ,   t»«t  •/ 
DATA  ritAa(lj3),HE*D(2j3)iMEAD(3,3),MEA3(<,,3),HEAD(S»3l«HCA3(6»3)i 
-itAJ(7/3)/  '»«»«'  »   •  CBN'  j   'TOBL'  i   ilES  '  . 

'ST*Ti  ,   tuS  »'  >   '•*»  l  / 
DATA  htAiJ(l»»),HEA0(2*4)»HEA0(3t»WHEAD(»»t)»HEAD(o«*)»wkAC(6»»)i 
HiAD(7jt>/  •>»*»•  ,   i  OFT'  ,   'E.CT9'  j   'R  ST'  » 

'ATuS'   «    '  *«*'   .    '»   ■  •/ 
DATA  Ht  AD(  )<5]»hEAD(2,'j)  .Ht a -3(3,5),  he  AB(»j5)<HEAD(5»5 I iH£A;(6,5 I . 
HEAJ(7,b),MtAD(8»5)/  •*»»*'  .   '  !MTi  ,   lERjFi  < 

•CTI6'  ,   is  ST>  ,   'ATJSi  ,   i  Hf1  ,   '$    '  / 
DATA  «EAi3(l»6)»HEAC(S#l»)»HEAD(3<4),HEA0(i,,4)#HEAC(5#i|/MEA3(6»6)i 
HFA0(7»6)»HtAp<8»6)/  '»»«,»'  ,   •*  A  i  ,   it  T  i  . 

•E  '-  •  ,    IT  I   I   ,    IJ  N  I   ,    <l(fl'  ,    • » j  J  ;  •  / 
JATA  F«lLH  /  'TYPF.I  ,    i    MBi  ,    i.   Ti  ,    I  I -E  ■  ,    I  MINI  , 
•T-.   •  ,   iuAV  i  ,   i  ALKi  ,i.    i  ,   •  Typi  ,   it   V  . 
•B.    •  /    iTISEl  ,    I    "Si   ,    INTn  ■  ,    I  DAYi   ,    I    AC   j 


DATA  »..HlE  /  lALL 


•NBHMi 


■  AL 


»0 

99 

to 

100 

to 

101 

to 

10? 

*0 

103 

•0 

lot 

t0 

105 

to 

1J6 

to 

107 

to 

I  OS 

tC 

109 

to 

110 

to 

HI 

to 

11? 

»0 

113 

10 

lit 

to 

115 

"0 

116 

»0 

117 

*0 

11? 

to 

119 

to 

1  =  ^ 

to 

121 

DATA 

Type 

DATA 

AC<N 

DATA 

ThUN 

#    I 

VL  N' 

DATA 

HIST 

DATA 

jFF'JN 

DATA 

SYSH 

TEhNi 

.    i 

:s     ' 

T  IrE' 

•    i 

NO"  1 

•    • 

C9M 

DATA 

H.'.BDE 

•     i 

"AIL' 

DATA 

ThJ.Vl 

DATA 

Ci\U1H 

DATA 

S  -U1H 

DATA 

»f  ST» 

JATA 

SYNC 

DATA 

CICST 

DATA 

CIC-i 

DATA 

n;  ING 

DATA 

CSTAT 

r>ATA 

BtST 

DATA 

CyLTH 

DATA 

HINTV 

.    ' 

3EC9' 

DATA 

TkNph 

«     • 

TlbNI 

DATA 

Ml  I'JK 

DATA 

HjJLNK 

*    I 

aci 

DATA 

«jL>iK 

■     • 

pi 

DATA 

HlNi<9 

DATA 

HuC'JT 

DATA 

Hi.S<D 

L,ATA 

DIRCT 

#    i 

\,„   i 

DATA 

PrESS 

t    i 

AT  i 

«    i 

jRaO 

#    i 

ITBRi 

,    i 

3j   • 

.    • 

:ss  ' 

5Tfc1< 

»    i 

-J   ' 

•    ' 

A  Si 

•C.8NTI  , 

•DET  i 

i  .'j    i  , 

•  Y     1 

•TP.UN'  i 

'CATEi 

luSBE'  . 

ii»  •  i 

•"ISTi  , 

■BHY  i 

■SFF  '  I 

<9\       i 

•UESIi  , 

i^ED  i 

•C!t  i 

'    ii  / 

"JOE  i 

■  i\    i 

•STbYi  , 

MAN  i 

•TRUNi  , 

'CATti 

•CBNTi  , 

i^RLLi 

•SECT-  . 

•  IBN  i 

•BFFS'  , 

•ET  (. 

i"ASTi  , 

•ER  Si 

•  t-lC  •  , 

■STATi 

•ThLDi  , 

•  ACT. 

>1|N,l  , 

•  A  Pi 

•  C.9MI  , 

•  STAi 

•OfFS'  , 

•ET  (I 

•LYCL'  . 

•E  LE> 

•INTEi  . 

•*VALi 

ImDS)I  / 

iCBNTi  , 

•RBLLi 

'****'  , 

•  LIN' 

i   LI'  , 

•  NK   > 

•(.UP  I   . 

•   YBi 

i     N'  j 

•9    i 

•IT    i  , 

•     V  • 

■LINK'  , 

•   INBl 

•N9T  i  , 

I  IMST-i 

lDU'1M"i  • 

Y  LI '<  'N 

IN    I  , 

•  S    i 

•SE   •  . 

•S«   • 

'd>u  '  , 

•FAIL- 

•EFOLi  , 

•  S«Ui 

i  CBM  , 

•TRBLi 

•UETEi  . 

itjMlNl 

■BF  Si  , 

•HuTDi 

•  DBE'  . 

'S  NBi 

in  A  •  . 

IN  U  1 

■E   •  / 

'CBM-:' 
'D  LI' 


TBD  ' 

D  LI' 
ES  -■ 

NB,  • 
ACT0i 
YNC.  ' 
JS    ' 

IMHI 
HASF  • 
TUS  • 
ENTRi 
NOTH' 

UuRi 

E«  j. 


L\<l 

LJmEi 

PHaS' 
PM  ' 
PERAi 

Rur-F' 

E  i 
E8   • 

URF  • 
ATTi 
TOB"' 
LER  • 
E  EFi 
B»Nj  i 
T  RE  • 


'UAL 

•  FA 

•  SEC 

'MBDE 
'   DE 

'TRSP 

'ST 

.  U1BE 


i   M 
'  8R. 

'  Y) 
■ATI9 
'N  TR 
'TA  t 
S 


'TI  yF 
'NTED 


'CEIE 

'F-PT 

IN  , 

•STAT 

'FECT 

'J   I 

'SPUN 

•  R  E 


i  P»T' 

'  IL.jR' 
'T.   . 


EiJIVALENCt  (C"ALf (ll.CICTFI?) I 
EQUIVALENCE  (CICSFdliCTBDM?)) 
EuUIVALENCE  (CICEFH  |,CICUP(?)I 
EUU I VAlENCE (H8LDI1 |/HSB(2) ] 

EQUIVALENCE   (LNKPHI 1 l.LNKPTIl I ) 

IFL  •  3 

IT8T  •  ENTFL(l) 

CH£C<  E^TF.L  FLAOS  AND  CALL  PAIL  TaPLE  UPDATE  IF  BN 

10  CONTINUE 

IT9T  •  ITBT  +  ENTFLI IFL) 
IF( ITBT^LT.O)  jB  TB  ?0 

filiY  FLAi  IS  9N   -   CALL  FAIL  TAblF  UPDATE  RBUTINC 

CALL  <fTJ 
RETURN 
2:  C5NTI ;ul 

IFL  •  IFL-I 

IFt  IFL.3T.D  GB  T9  10 

SET  UPDATE  RATE  TB  25  SEC9N0S 

*CNT  •  2d 

SET  UP  INDE>  FBR  CRT  1 


REL>  / 


INS  (' 
i  AN'-;  I  i 

i*«*  i 

•  LN<  ■ 
'PEED' 

•  DIR  ' 


CTrRi   , 

IN3  '  . 

IflNi  j 

US  Ti  , 

IVFNi  , 

F  SY'   , 

:  jS'  i 

L  E'  . 

BSI  • 
'CUT 


to 

12? 

to 

1?3 

to 

l?t 

to 

1?5 

to 

126 

to 

127 

*0 

128 

to 

129 

to 

no 

to 

131 

to 

132 

to 

133 

to 

Ut 

to 

135 

to 

136 

i  ! 

137 

t,\ 

138 

tc 

139 

to 

ltc 

to 

1M 

to 

lt2 

to 

lt3 

to 

l«t 

to 

115 

to 

lt6 

to 

lt7 

to 

ltg 

to 

1»9 

to 

150 

to 

lbl 

to 

15? 

to 

153 

to 

15t 

to 

155 

to 

156 

to 

157 

to 

158 

to 

159 

to 

160 

to 

1*1 

to 

If-? 

to 

163 

to 

16* 

to 

165 

to 

166 

to 

167 

to 

168 

to 

163 

to 

170 

to 

171 

to 

172 

to 

173 

to 

17t 

to 

W5 

to 

176 

to 

177 

to 

178 

to 

179 

to 

180 

to 

181 

to 

182 

to 

183 

tu 

i;t 

to 

1«5 

»- 

1«6 

tu 

187 

to 

188 

to 

189 

to 

190 

♦  0 

191 

tc 

11? 

to 

193 

to 

19t 

to 

195 

to 

196 

to 

197 

to 

198 

•3 

199 

•  0 

200 
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iriCHTrl.SE>' I  G8  TB  3C 

SET  jP  INDEX  F9R  CRT  2 

IC"T  .  l 

bSl  ■  «Ot9 

CSMlNuE 

If  I  ICRT.E'0.1  )  of"  TB  A3 

CRT  1  BPERATI9N  CESIREC 

CRTN.1  •  1 
C'TFl  .  3 
jB  TB  50 

CRT  2  9PERAT19N  DESIRED 

CSMTl-.oE 
C3Tn>-,  ■  j 
C-TF2  ■  C 
C9NT1\^E 

CRT-2111  IS  CRT  2   .   C-iT32(2|  IS  C-T  i 

IFICRT-212-ICRT )>NE'u>  US  TB  92; 
IF  {  IC-<T.E3.1  )  oB  TB  S3 

CRT  I  DESIRED 

C'T*1  •  1 
jS  TO  73 

CRT  2  CtSIHED 

C9'-TI  muE 

C.RTA?  .  l 

CS^Tl.^E 

CA*L  UISIMMSI  ) 

bET  CjR-Jt'v.T  TIMfc  BF  DAT 

CALL  ToDAMTih/ 
IdTTE  •  JB'iC-./^ 

FILL  FIRST  «BRD  BF  CRT  BUFFER  WITH  LEAD»INj  HB«E  CuRSBR,  DEL, 
DEL 

CALL  PT9T(C-<TBl,bSl,LEA0) 
CALL  PTr?r(C-<TBl,L(3I»l.  I"J'1£1 
CALL  PT5Y(CR'Bl,3SI*2» IUELl 
CALL  PTdT(CXTBl»USI*3#IPELl 
BSI  •  -.  SI.» 


PUT  CURRtMT  THE  BN  9'JTBUT  PAGE 


CALL  OWTIU-1B.1.BSI) 
CALL  CvVT(T">d,S,dSI ) 

LBCATE  DESIRED  PAoE  "EAJIvU  AND  PUT  IV  CRT  BJFFjR 

IFI  ICRTiES.l  1  u9  TB  80 

C»'T  1  DESIRE^ 

IC<DE    •    CRTO] 
G9    TB    90 

CRT    ?    DESIRED 

C3ATI\uE 

1CBDE    .    CRT  J? 

CB'.TI\jE 

CALL    Si-  TCR(iSI,  ICR,  ICBDEl,  ICC( ICBDt I > 

(.all   CsvT(HE*D(l#IceDEl»IHCNT(ICeOt),BSl  ) 

uB    TB    DtSlRfC    PAuF    FBRMAT 

FAILURE    STATUS  -    loci 

SYSTEM    STATES  -3:0 

CbNTRBLlE*   status  •   ->-,o 

Dt.TECT8R    STATuS  -    »-j0 

I  \TcRSfc.CTIB\    STATUS  -    6  ;0 

PANIC    "'ESSAuE  •    6-.10 

GO    TB     I  100.3;0'AJO-tu3.600>8    OUlCBDE 

FAIL'JRf     STATES     TA-LE 

CB  iTI\i,E 

MB*    .     I. 

ICL     •     2 

CALL    StTCRl-JSI,  IRB,»  ICBL) 

./CAR    •     72 

CALL    CiVT(FAILH,  ',CHAR.,9SI  ) 

IF(nBFaL.QTO)     C.9    TB    123 

CB^TI  ._E 

IRBi    .    17 

IC-L    ■     <■ 

CALL    Sr 'C«(03I. IRB»/ICBL) 

\ChaR    •    12 

CALL    C'.VT(A"<OSEiNChAR»BSI) 

uB    TB    ,33 

C9-TIi0E 

lSIUE    •    ■: 

LC^T    •     J 

IF(N9fAL«GT.3S)     liS    T1     13J 

\FAL2    •    N8FAL/2 

oS    TB    lie 


A3 

231 

to 

20? 

♦  3 

233 

to 

23A 

•  0 

205 

a  - 

236 

A3 

237 

to 

23! 

*>0 

239 

•  3 

213 

"0 

211 

a  ; 

21? 

*>  r 

213 

A  ~ 

21. 

AJ 

21e 

A^ 

216 

A3 

217 

A3 

21! 

A3 

219 

A3 

d?- 

A3 

221 

<*: 

22? 

•>  ] 

223 

»j 

2-?A 

*o 

2?5 

*  ^ 

226 

A3 

227 

A3 

2'9 

Aj 

2?? 

••J 

2Jn 

a; 

231 

Ac 

23? 

»; 

243 

AC 

23« 

A  J 

2)5 

A  - 

2)6 

A3 

217 

A  J 

2*5 

AC 

23? 

A  3 

2A3 

14  j 

2-1 

•3 

2«5 

A_, 

2'.  3 

AC 

2«A 

a  :■ 

2A5 

AJ 

2a6 

A3 

2»7 

A3 

2»S 

A3 

2a9 

A3 

25? 

"J 

2=1 

*>  j 

25? 

A3 

253 

»0 

25a 

A3 

21? 

A3 

256 

AC 

257 

A3 

2?" 

A. 

2")9 

tj 

263 

AJ 

2*1 

A3 

265 

AJ 

263 

A3 

26A 

"J 

265 

A3 

266 

A3 

267 

•3 

268 

A3 

269 

»D 

2>3 

A3 

2'1 

A3 

272 

A3 

273 

to 

2'A 

to 

275 

to 

2/6 

to 

277 

to 

278 

»0 

279 

to 

230 

A3 

2H1 

to 

28? 

to 

293 

to 

2«t 

to 

2«5 

to 

256 

to 

2*7 

to 

28>t 

to 

2S9 

to 

2q3 

to 

Sl'l 

to 

29? 

to 

2^3 

to 

29t 

A3 

295 

to 

296 

to 

297 

to 

290 

to 

299 

to 

300 

to 

301 

to 

3C2 

to 

303 

to 

30A 

to 

3)5 

to 

JJ6 

to 

307 
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u:  c5MTr-u.fc 

^«L?  •  19 
IT    C9''T!  j„E 

>T1     .       FAU 

-»F»L2    »    '.FsL'J    -    19 

^Tc1    •     nF«L2 

vf«L?    .     vTl 

IF  (NSF.L.GT.'SvYF  )    '  SF*L'M  «U«F 

IFTt    •     I  «'Jf  A..J  )»lo«l 
15.    C9MTI\uE 

!«•)»    .    J3.,UL?»\Tf 

IC9L    •    2»LSIJ£ 

CALL    SETCB(HSI/IR8.»IC9L) 

C»LL    ufcTtiV(F|_TAp,  IFT3»1»  ITYPr) 

1'rPE    .     ITV^E.2 

,W«  .  » 
160    C9NTI »ut 

CALL    C WT(  r»P£(  I  TYPE), '.CHARTS  I  ) 

bSI    •    eSI    ♦   1 

IFTh     .     IFTr>/2    ♦     1 

CALL    h*LF(FLTAO,IFTh*1.IE3N> 

CALL    i)IS\f(SSI.  IE3M 

PUT     MlJu^b     AND     ~1I\jTLS     P      CRT     rJuFFFB 

bSI    •    cSl     *    1 
\CHAH     •     b 

I^Ea   >    (  lFT8*fc)/IbVTE*t 

CALL    CwT(FLTad(  1njEX)»NChAR,RSI  ) 

SSI    •    ~SI    t    J 

Id  IBVTE.GT.J)    38    T8    170 

PUT    IJM-l    AND    DAT     1',    CRT    r,0FFEH    F8B    ]4    BIT     «9R0    "AC-iI-E 

MCHAR    •    3 

I\J£X    •    INuEX    ♦    3 

C*LL     C  i'/T(FLTAb<  I\UE»)»NCHAR,BSI  ) 

bSI     •    t-SI     ♦    3 

\,CHA*     •     2 

I  \JE»    •    IN';:  Ex    ♦    2  * 

CALL    C     VT(FLTAi)(  INCtX ) , SCHAR, 3S I  ) 
US    T6    l»j 
17 J    CS*TlNuE 

put    "aNT"  and  day   in  crt  -jfffjr  fbr  a  32  hit  «eo  »»c-i!\r 

IVJEX    •    IFT"   ♦   5 

PIC«-    UP    1ST    T»9    CHARACTERS    8F    MBNTH    A.mO    SHIFT    LEFT    2    ,»VTJS 

IFTB"    •  IFTS/»    ♦    3 

NTEf-P    ■  FLTAHI  IFTB»  » 

NTEf-P    .  mTE"P    •    256    •    25e 

\CrtA-     a  2 

CALL    C .vT( NTElP.^CtAK.aSI  ) 

mChaR    •    1 

CALL    CwT(FLTAtMlFTe-,.l>j»'C*.R..6SI) 

BSI    ■    cSI    ♦    3 

pic«.  jp  jay  and  Shift  left  s   characters 

NTEmP    •    FLTABl lrT9,«ll 

vTEr>F    .    ,,TLMP    •    25=    •    256 
\,CHAR    •    2 

CALL    C>-vT<  mTEmp,nChAR,uSI  I 
1»,    CBMINlE 

Put    ACK\8-LEruE    In   CRT    BUFFER 

bSI     •    rSI     .    14 

NCHAR    .     1 

CALL     jF-TBYIFLTAR.  IFTJ,  IACK1 

ML*     •     MCK     ♦     1 

CALL    C'.YT(AC<N(  I  AC-  1,\CHAH,BSI  1 

IFTfc    .     IFT,    -    16 

LCNT     .    LCNT     ♦    1 

\F«L2    •     vFAL?    •    1 

|F<\FAi_2.GT»3)    Sd    TB    153 

C9!FLtTtO    LlST!\j   FAILU»ES    in    L£fT    SIDEj    Ch£Ck    IF    PA'jr    IS    FULL 

IF(LC  iT«  iE»3«)    GB    T?    2>.o 
I r ( I F Td-LE.31    US    TO    9CJ 
.Slbt    •    37 
|F(LC  ttt.iT.MTl)     G8    T5    190 

mFal?    .     -n 

G9  TB  15.' 
liu  CSNTImuE 

NFAL2  .  1 

\T2  •  ,\T2  ♦  1 

jj  T5  lbu 
2J'J    CSMTInuE 

T«u    CATll)    LIST 

H»»    .    27 

IC1L   •    Is 

CALL   5tTCRl0SI»IR9«/ICBL1 

nC-aR    •    32 

CALL   CwT(T«uN/".CHaR,hSI  I 

CALL    UtS'.^HSI.NBFAL) 

gb  t;i  ajc 

SYSTEMS    STATuS 


»c 

308 

*0 

339 

»9 

313 

»D 

311 

*I 

31? 

*0 

an 

*0 

31* 

»D 

315 

♦  3 

316 

*0 

317 

»0 

319 

*0 

319 

»J 

323 

»0 

321 

»3 

32? 

»o 

323 

*0 

32* 

fcv 

325 

*c 

326 

*3 

327 

''C 

32» 

**3 

329 

*0 

333 

*»0 

331 

»i 

33? 

•0 

333 

*c 

33A 

*c 

335 

*>G 

336 

*»c 

337 

*0 

333 

»0 

339 

*u 

3«: 

*o 

3M 

»3 

3»? 

*c 

3»3 

»c 

3"  A 

»0 

3»5 

*>0 

3»6 

<•  J 

3»7 

*c* 

3»< 

»0 

3»9 

*»c 

353 

»G 

351 

*3 

35? 

*»0 

3i3 

•c 

35k 

*»C 

355 

*c 

336 

*v 

3b7 

*>0 

358 

*tu 

359 

*»J 

3*3 

»c 

3M 

»0 

3<>? 

»0 

363 

*a 

36. 

»3 

365 

»0 

36  6 

*J 

367 

*>■- 

368 

*u 

349 

*»c 

370 

»3 

371 

»c 

37? 

»a 

373 

»o 

371 

»o 

375 

»o 

376 

«o 

377 

»0 

379 

»3 

379 

»3 

3«3 

»0 

391 

*0 

3"? 

*0 

393 

*c 

391) 

*0 

395 

♦3 

386 

»0 

387 

*0 

398 

»0 

389 

»0 

393 

»0 

i^l 

»0 

39? 

»0 

393 

*0 

39l> 

*0 

395 

'0 

3°6 

»0 

397 

*0 

398 

»c 

399 

»0 

♦  03 

»0 

♦  01 

»c 

»3? 

to 

»03 

*>c 

»0» 

♦0 

»35 

»0 

*06 

*>0 

*37 

*0 

*08 

*0 

•  39 

»J 

MO 

»o 

Ml 

to 

M2 

68 


304   CBNTINuE 

IRB»    •    * 

ICOL    •    3 

C»LL   StTCR(flSI.IR9v.,ICBL) 

NCHAR    •    8 

CALL    Cn*T<hIST,NChaR,BSI > 

NCMAR    •    3 

CALL    CNvT<8FF8N(HeF*l)» '•'CHAR,  BSI ) 

l«h    •    6 

1C9L    .    16 

CALL    Sf TCR(BS!,I«8»,ICBL) 

\C-I»H    .    122 

C»LL    C~VT(STSH, NCHAR, BSI ) 

JR*    •    -> 
310    CBNTINuE 

36    32j    NSCTN.j,Ni1SCT 

I-3    •      ■ 

CICC7    •    0 

ICOta   .    S   ♦   NSCTN 

IC*L    ■    2 

CALL    StTCWl8SI.IRB-.ICeL) 

CALL    D1S  it"(SSI»NSCTN) 

tlSI    •    rSI    .    * 

■nCHAR     .    t 

CALL    CVT(TI"Ch<nsCTn),NChaR,BS!  ) 

BSI    •    uSI    ♦    3 

C*LL    &f  TdV(J^eOE. NSCTN, M8DE) 

f.BJE    ■    "JDE    ♦    1 

CALL    C    vT(~.~'8DE<>1?3E),NCHA'<.RSl) 

bsi  ■  f>si  *  s 

CALL    jtTdY(-iB0ES.NSCTN.>180t) 

hSOE    •    -I80E    ♦    1 

CALL    Ct.vT(HiBDE(M8DE).NCHAR,8Sl  ) 

bSI    •   tSI    ♦   3 

CALL    uET9Y(PATNh,NSCTN«NPAT) 

NPAT    •    NPAT    ♦    1 

CALL    DIS>JH<BSI,NPAT> 

BSI    o    cSl    t    8 
C 

C         CBuNT  THE  NUMBER  BF  CIC'S  F8R  THIS  SECTIBN 
C 

CALL  CIC<IR3»IR*.CICCT> 

C»LL  ulSNM(BSI.CICCT) 

bSI  •  fSl  .  * 

CALL    DISNM(BS!»SCDFC(NSCTN> ) 

esi  ■  hsi  ♦  a 

CALL  DISNM(BSI.SECFC(NSCTNI I 
380  CBNTINuE 
B9  TB  SOU 


c 

c 

CBNTR3LLER  STATUS 

c 

400 

CB^TKuE 

lI^E  ■  0 

CNT10  •  10 

IRBw  .  it 

ICU  •  3 

CALL  SETCR(BSI,!RB«.ICBL) 

I\0EX  .  i 

NCNTR  .  1 

I9UT  •  0 

1F(  IC8ufc.Ej.4)  G8  TB  *80 

•10 

CBNTINuE 

c 

c 

CBiTRSLLER  STATUS  8UTPUT  PAtiE 

c  • 

CALL  BtTBl 1CMALF, !\DE».ICF,1 | 

1F(  ICF.N'E.O)  G9  TB  4*0 

CALL    CitTBI  (H9LD,  INDEX.  ISTSV.l  ) 

IFI ISTbV.E j-0)    GB    T8    4bQ 

LALL    StTbl  IUCSF.  INDEX.  ICIC.i  ) 

IF (  ICIC'tC.O)    UB    TB    430 

CALL     jtTil (CICEF, INDEX. ICEF.l I 

IF(  ICEF  .ECO)    U9    TB    470 

I  C-"AR    .    3 

CSNTI \Lt 

CALL    0IS'if(BSI»NC'4TR) 

CALL    StBDEfBSI. I  CHAR, I  BUT, LINE. IRTRN, 

1F( IHTRM.E3«1 )    GB    TB    900 

CBNTlNuE 

NfNTR    .    NCnTR    *    1 

IF(NC'.TR.GT.  J1LTL)     G9    T9    540 

IN'JEX     ■     INJtX     ♦     1 

U9    TB    *10 

CSNTI  -.i.-E 

1CHAR     .     J 

UB    TB    »23 

CMT1  uE 

j3    460    N«1,«9NCS 

CALL     jt  TBY(NTC'-T.N,NeC8) 

IF  (NC'TR.E  J.'-IBCB)     jB    TS    430 

CBMTInuE 


STATgS    fljTP'jT    PAGX 


C»LL    GE  T 31  (UIS,  IN'JEX,  I0IS,0) 

IF(  101":,.  -E.0)    U8    TB    500 

CALL     Jr  TJI  <  J-IAuF.I  OEX.  IMLF.JI 

IF(  11i>  iNE.U)    US    Ta    520 

CALL  UtTBKLMMAL,  InDLX.  IC81F  ,01 


ICHAR  .  1 

470 

UB  T9  -2j 
CBNTINuE 
ICHAW  •  * 
UB  T5  *20 

C 

c 

UETLCTBi 

c 

480 

CSNTlVt 

*0 

tl3 

to 

tit 

*0 

tl5 

»0 

tl6 

»0 

tl7 

tO 

tlB 

to 

tl9 

*0 

*20 

»0 

t21 

»0 

t?2 

♦  0 

*23 

♦0 

4?4 

*0 

425 

*0 

426 

♦  0 

t27 

to 

t28 

to 

t29 

to 

t30 

to 

431 

to 

43? 

to 

t33 

to 

t3t 

to 

t35 

to 

t36 

to 

t37 

to 

t3? 

to 

t39 

to 

*»o 

to 

t»i 

tc 

tt? 

to 

443 

to 

t»» 

to 

t»5 

to 

t»6 

to 

tt7 

to 

448 

to 

449 

to 

t50 

to 

t51 

to 

t52 

to 

453 

to 

t5t 

to 

t55 

to 

4S6 

to 

t57 

to 

t5P 

to 

459 

to 

t*C 

tc 

461 

to 

t62 

to 

t63 

to 

46* 

to 

4*5 

to 

t66 

to 

467 

to 

468 

to 

469 

to 

470 

to 

*71 

to 

472 

to 

*n 

to 

474 

to 

475 

tj 

476 

to 

477 

to 

479 

to 

479 

to 

480 

to 

4"1 

10 

41? 

to 

483 

to 

48* 

to 

485 

to 

486 

tC 

487 

to 

t8B 

to 

♦  89 

to 

t90 

to 

t91 

to 

49? 

to 

t93 

to 

494 

to 

495 

to 

t96 

to 

t97 

to 

498 

to 

499 

*0 

SCO 

to 

SOI 

to 

50? 

to 

5(^3 

to 

50* 

to 

505 

to 

506 

to 

507 

to 

508 

to 

S09 

to 

510 

to 

bll 

to 

512 

to 

513 

tu 

S14 

to 

515 

to 

516 

to 

517 

to 

518 
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If  (  IC31-F.NE'  "II    38    Tb    530 

C9-JTI  *lE 

NC^TR    .    '.C-T"?    +    l 

If  (NCMR.GT-NMVED)    G3    T9    5*0 

INJfc,    •     INiL-tX    ♦    1 

03    TB    .33 

CSNTPJuE 

CALL    JISNMiBSIjMC'JT1*) 

IC"A(i     •     1 

CS*TI\iuE 

CALL    SOBOEieSI,  ICrlAK.  I  BUT,  LIVE.  IKTSN) 

IF  (  I-T-N.E„M  )    5b    TB    900 

0?    TP    490 

CALL    :)lS\r"(8SI»\CMH) 

IC-AR    .    5 

09    T6    310 

CSNTINuE 

CALL    JIS  .^(OSI.VCNTK) 

IC-iAW    .    J 

09    T9    sic 

C.S  JT  1  Jut 

IF(  IBUT.'^E.O!     oB    TO    93w 

09    T9    113 

INTERSECTS  '    STATUS 

C5*TI\uE 

l^k    .    3 

iC-tL    •    27 

CALL    StTCRldSI.IKB.^.ICBL) 

nC«A*    .    17 

CA.L    C.WMC*UKi,\CMAr,,oSI  ) 


NIC     •     ITRNMI  ICT  +  l  I 
CALL    DISNK(BSI.KMC) 

v  1L1    .     «»C    -    I 

«tC»    •    \1C1««    *    1 

\.*cio  •    .f;i«i=  ♦  ; 

C*LL    alT'iV(I-JTJ0#>J«Cl6»!DU« 

If  I  ICjr..E5..)     o«    T5    b8J 
613    CSVTIxuE 
H»»    .    3 
ICL    ■    1     ■ 

CALL    SS.TC1e!S|«  H"./  ICBL) 
\C*Ai-    .    12 
CALL    C     /T(3VJ— .►.C-iA'J.aSI  ) 


m^S 


sectibv  Mur-at* 


CALL    Of TBYlCiSEC.Mi'OVMS) 

NISI    •    N~IS    -    1 

CALL    DISNf"l9Sl.\'MSl 

BSI    •    dSI    ♦    5 

NC">AK    .    16 

C»LL    O.VT(BFST*,NCl-'AS,BSI  ) 

CALL    OETaVlCURBf.NlC/ !C9fS) 

CALL    IC^ALiaSI. IC9FS) 

BSI    •    oSI    ♦    6 

\CHA«    •    12 

PUTS    3UT    ^ASTLR    SYNC    ME'DfR    BUT    OBFS    f»8T    PUT    BUT 
LATER 

CALL    Cr\VT<SYNC.NCHA'<»BSI  > 

BSI    •    oSI    ♦    » 

IBSI    .    BSI 

BSI     •    rSI    .    1 

CALL    C*LF(bSI,l ] 

\CHAR    .    12 

CALL    CnVTICICST.NC-AR.bSI I 

1C«0    ■    V-1C1/32 

ICBIT    .    -JfCl    -     (lC*0O2> 

IN'JX     •     N1Sl»NC"P0     ♦     IClD 

I A    •     I,«0X»32    ♦    KBIT    ♦    1 

I  a   •  :t  c 

CALL    SETdl (CICSC.  Ix» 1CIC.0) 
If  (  ICIC'EOOl     uB    T8    76U 
CALL    OF.ToIlCICSF.Io, ICIC.l) 
If  I  ICIC'EQO)    OB    TB    770 

C*uL  OtTai  (Cictf. ia/ icth, i ) 

If  I  ICT^.EQ.O)    09    TB    6?0 

JH       .       1 

u9     TH     c»; 

623    C3  'TIVA 

CALL     JlTdl  (CICEf  .  Io,  ICIC.l  ] 
If  (  ICU.EC.  J)    u9    TB    (=3J 
CA.L     ;tTiI(CICl\H, IB/ICIC/l) 
If  (  I(..l'_t'jE«0)    Jl    T3    630 

I-l  • 

09    TS    ( ij 
330    C9"'TI    ,ut 
IH    .    3 

f>»i  ce-.ii  ..f 

NC*AI<     .     < 

CALL    C    VICTICMI  Im).\CHAR,BSI| 

aS  I     ■    r  SI    ♦    5 

\CHA^    .    if. 


95    N    TILL 


40 

519 

40 

520 

»o 

521 

40 

52? 

»0 

323 

40 

524 

43 

525 

*0 

526 

•3 

527 

*0 

528 

»0 

329 

♦  0 

330 

*0 

331 

»0 

332 

»0 

533 

40 

534 

40 

535 

♦  0 

536 

40 

537 

40 

535 

40 

339 

40 

340 

40 

541 

43 

54? 

40 

343 

4C 

544 

40 

545 

4  0' 

5»6 

40 

347 

40 

54B 

40 

549 

40 

350 

40 

551 

40 

552 

40 

553 

40 

554 

40 

555 

43 

556 

40 

557 

40 

558 

40 

559 

4C 

56T 

40 

561 

40 

562 

40 

363 

40 

5f\4 

43 

365 

40 

566 

4u 

367 

40 

568 

40 

569 

40 

370 

40 

571 

40 

57? 

4C 

3/3 

40 

574 

40 

375 

40 

576 

40 

577 

40 

578 

4-3 

5  79 

40 

38? 

40 

581 

40 

582 

40 

583 

40 

384 

40 

385 

40 

386 

40 

387 

40 

588 

40 

589 

40 

393 

4j 

591 

40 

392 

40 

593 

40 

59» 

40 

5*5 

40 

596 

40 

597 

40 

590 

40 

5»9 

40 

630 

40 

631 

40 

63? 

4. J 

633 

40 

634 

40 

635 

40 

636 

40 

607 

40 

60S 

40 

6  39 

40 

61D 

40 

611 

40 

61? 

40 

613 

40 

614 

4  0 

615 

4U 

616 

4U 

617 

70 


CALL    CkVT(h11m,,NChAR,BSI  ) 

CALL    (jtTBYIliGGu.NIC*.  IGG3) 

CALL  DCiALlBSI.  luGo) 

IPiAS  .  1 

CALL  jhEEN(BS!»NMC»«  IPHASl 
C 

C         PUT  9UT  CINTRBLLEw  STATUS 
C 

V.C-AK  .  12 

CALL  CVT(lST»T,NChAR,BSI  ) 

CALL  oETbII-'BlO.  IB,  ISTBY/1) 

IF(  ISTuY.EJ'j)  GB  T9  750 

IH  .  5 
650  CS-mTI'juE 

VCHAH  .  4 

CALL  C^VTInlBDtl  H),  mC^AR.BS!  ) 

BSI  •  ^SI  ♦  5  • 

\Chah  .  16 

CALL    CVT(UFSTf  \CH»R,BSI  ) 
-    C*tL-iiC  TBV(E\l8fF,\r-.C,  IE9FF) 

CALL    DCHLlBSI,  IEBFF) 

IPNAS    .    2 

I\J£X    .    Mi"C»    *    1 

CALL     jREEN(BSI, INDEX. IPHAS) 
C  '. 

C  LEA.E    FIRST    ENTRY    8N    TMJS    LINE    BLaM< 

C 

BSI    •    -.SI    +    51 

\CHAR    •    1? 

CALL  C\VT<CYLTH,nChaR,BSI I 

BSI  ■  BSI  ♦  * 

CALL  3LTBY(LYCLC.NmC,ICYCL> 

IH  .  2 

IF(KCTF<ICrCL*ll«EQ»0)  I-i  •  1 

c 

C         PUT  8UT  Y  8K  N  tes  MASTER  STNC  ENTRY 

MCMAR  .  1 

CALL  CNvTIACKM IHJ.NCHAR. last ) 

CALL  DCMaL(BSI»KCL( ICYCL+1 ) I 

IPWAS  ■  3 

IV.IEX  >  MMC*  *  2 

CALL    l3HEEN(OSI,  INDLX.  IPHAS) 

CALL    CkLF(BSIjl) 

NCHAR    •    28 

CALL  CnvT(hIntv,NChAR,BS1 ) 

CALL  ChLF(BSI.l) 

IMJEX  •  NTC16 

JS  660  Iol.lh 

CALL  DlSNf (BSI. I  I 

CALL  PTBY(CWTB1.BSI, IRPARI 

BSI  •  dSI  ♦  1 

CALL  3ET8Y<lNTOU«ISDEX»lNT0) 

IF(INTL.EQ.O)  u9  T3  67u 

CALL  aClAL(BSI.INTU) 

INDEX  •  INDEX  ♦  1 

IFII.Ei.t7)  CALL  CRLF(BSI.l) 

IFI  I.Eu-1*)  CALL  CRLF(BSI.l) 
66v  CBNTlNuE 

38  T8  68o 
670  CBNTlNuE 
C 
C         ERASE  LAST  4  CHARACTERS 

BSI  •  uSI  -  » 
690  C8NTInuE 

]R9„  •  1* 

IC8L  .  25 

CALL  StTCRlBSI, IRH-, IC8L) 

CALL  GtTSY("I.-4MC.vT«) 

ITINTR.E J.„>  58  T9  690 

\CMAK  .  2» 

CALL    C'.VT(T>*  jPh.nChAR.bSI  ) 

1.9    T9    900 
690    C8NTINUE 

BSI    .    BSI    ♦    <t 

NCHAR    •    20 

CALL    CnVT(H1LN«,NChAS.BSI ) 

CALL    CRLF(BSI,2| 

NC^AR    ■    *». 

CALL  CnvT(h2LNK,NChAR,BSI I 

CALL  CRLFlBSI.l ) 

CALL  C\VT<h3lnk,NChaR,BSI ) 

CALL  C«LF(USI,2) 

LlNKT.6"(N,-iL-l) 

LlNK«LIN<T»6 
710  C9NTINl.L 

IFILlNn.LE.LINKT)  G8  TB  900 

CALL  H»LF(CNTLN,LINKT*1»LNKC) 

IFILNK.L.LT.0)  U8  TO  725 

BSl«BSI+l 
C 

LN«C  ■  LNKC  ♦  1 

CALL  DISNM(BSI.LNKC) 

BSI  .  BSI  .  5 

CALL  uETbyilnkph.lnKC.LPH) 

CALL  PTBY(CRTB1.BSI.LPHAS(LPh*1 ) ) 

B5I  •  BSI  ♦  6 

CALL  3ET3Y(LNKWI«LNKC»LDI) 

NCHAR  .  2 

CALL  CNVT(DIRCT(LDI+1)#NCHAR,BSI) 

BSI  .  ,SI  ♦  5 

CALL    3tTr)Y(DFAlL<LNi<C.  IDF) 

IF( IDF.NE.C)    Gt)    T9    730 

CALL  3ETBY(N0BL,LN<C»NI ) 


*0 

618 

»0 

619 

»0 

62? 

*0 

621 

»0 

6?? 

»0 

623 

*0 

62» 

»0 

625 

*0 

626 

»0 

627 

»0 

628 

»0 

629 

*0 

630 

to 

631 

♦  0 

632 

*0 

633 

*3 

63» 

»0 

635 

»0 

636 

*0 

637 

*0 

638 

*o 

639 

*o 

6»e 

to 

6M 

»0 

6»2 

*0 

643 

»0 

6ub 

*0 

6»5 

*0 

6»6 

»0 

6»7 

*0 

60g 

♦0 

6*9 

*0 

650 

»0 

651 

*0 

652 

»0 

653 

»0 

65(t 

»0 

655 

»0 

656 

»0 

6F7 

to 

658 

»0 

659 

*0 

660 

»0 

661 

»c 

662 

»c 

663 

*0 

6  Mi 

»>: 

665 

*o 

666 

»c 

667 

»0 

66! 

*0 

669 

»o 

670 

*o 

671 

»o 

672 

♦  0 

673 

♦  0 

67» 

*o 

675 

»0 

676 

♦  0 

677 

to 

679 

»0 

679 

»J 

ooo 

»". 

681 

»0 

6«2 

»0 

693 

»0 

69k 

"J 

685 

»0 

696 

*0 

687 

*0 

688 

»0 

689 

•  0 

690 

*0 

691 

*0 

692 

"0 

693 

*0 

69« 

*0 

695 

»0 

696 

*0 

697 

»0 

698 

"0 

699 

»0 

700 

»0 

701 

♦  0 

702 

*0 

703 

»a 

70» 

»0 

705 

»0 

706 

»0 

707 

»0 

708 

»0 

709 

»0 

710 

»0 

711 

»0 

712 

»0 

713 

»0 

71t 

»a 

715 

»o 

716 

»o 

717 

*o 

718 

»o 

719 

»o 

720 

*o 

721 

*o 

722 

71 


IF(M.t'J.O)  G9  T8  735 
OIL  -1ALF(  AMCC»LN<C»  I»HCC) 


CONVERT  *CCUP»MCV  T8  PER  CENT  anj  SCALE  frbm  bis  Te  R: 


IA-1CC    .     IAHCC/128 

Iamcc    •    lArtCC    •    100 

Iahcc    .    IA-LC/256 

CALL    0ISnI"(5SI.  IAHCC) 

rSI    ■    bSI    ♦    » 

CALL    halFUBL.LNKC,  IvBL) 

IVBL    ■    lv»L/2 

CALL  DISNM(8SI«  IVBL) 

BSI  •  dSJ  ♦  * 

CALL  jf  TBY(SBAR,LN<C,  IS8AR) 

ISiAR  •  [ I53ARt2)/* 

CALL  0ISNM(9S1»ISBAH) 
720.  CSMTINuE 

CALL.  Ct-LElnS  1,1  ) 
'di>    C9MTI  vuE 

L1NK.T  a  LIN<T  »  1 

u9  T8  710 

IN8FERATIVE  LIN*. 

73;  CS MTlNuE 

\C-"AR  •  16 

CALL  C<vVT<'-'LNKc,NC>-AR,bSI  > 
CALL  CxLFIUSIfl) 
lINKT  .  LlN«T  ♦  1 
t>9  T8  7-1 C 

Dun-V  LI..<S 
73b  C9NTI  MuE 
NCHAR.12 

CALL  C.vVT<r,L\Kj>".,MC»»R,BSI  ' 
CALL  C"Lf (JSI.1 ) 
u9  T9  723 

NB  lINKS 

7"'.     C9NTI\uE 
153,    .    20 
IC»L    •    25 

CALL    SETCR(»SI» IR9,, IC8L) 
\C*aR    •    16 
CALL    CWT<H\iCNT.NC*AR,aS!l 

08  T9    yQJ 

PUT    8JT    STAi-OBY    8R    FAIL    "FAJE" 

750    CSNTINuE 

CALL    otToI  (L1ALF,  IB,  ICi1LF,l  I 
IH    .    6 

IFIIC-IlF.E,--)     !h    .    1 
38    T9    b50 

PUT  8JT  N8T  INSTRUMENTED 

7SJ  CSNTlNuE 
IH  •  * 

09  T8  6*0 

CIC  RELEASE 

77J  C9NTI  4L.E 
I-i  •  b 
09  T9  6*0 


PA  .IC  ERX9R  MESSAGE 

100  CBNTI'JuE 

fcSI  •  nSI  *  ? 
JF(NMRTiNE.O)  J9  Tft  820 

IBYTE  ■  25 

09  81;  I. l.b 

IBYTE  .  IBVTE  ♦  1 

CALL  l3f  Tt)Y[T-!3.  I.ITI") 

CALL  PTBYIPlfSS,  IBYTE.ITI-1) 
HIO  C9NTI'MoE 

N^RT  •  1 
820  CSNTlNuE 

MCHAR  .  195 

CALL  CvVT(P,'FSS,NCMAR,dSI  ) 


CRT  iRAP-UP   IjET  BYTE  CtONT  AND  TRIGGER  The  CRT  DEVICE 


900  C9NTI  ^E 

IF(BSI.3E«20*8)  BSI  •  BSI  •  ?0*8 

mCRT  •  2 

IFICRTNl.EJ'C)  NCRT  .  1 

i)YTCT(  »CRTl  •  US] 
*2J  IFKRTrifCRTFa.EC.j)  C.8  TB  910 

"ASTKr  AST)  .  1 

RETURN 
310  CBVTINuE 


TBIu  IS  AN  ASSEMBLY  LANiUASE  R8UTTNE  TB  CALL  THE  CRT  OE^ICE 


CALL  ThK 
RETURN 

ENJ 


»0 

723 

»0 

.  72* 

to 

725 

to 

726 

*0 

727 

»0 

728 

»0 

729 

«0 

710 

»c 

731 

"0 

73? 

»0 

733 

»0 

73k 

to 

7  35 

•0 

736 

»0 

737 

»0 

738 

»0 

739 

»0 

7*0 

to 

7*1 

»0 

l«t 

»0 

7*3 

»0 

/»» 

to 

7*5 

»0 

7*6 

»o 

7«7 

»0 

7*8 

»0 

7*9 

to 

750 

*o 

751 

»o 

75? 

»0 

753 

»0 

75* 

to 

755 

»0 

756 

»0 

757 

»0 

758 

*0 

759 

to 

7*0 

to 

761 

»0 

752 

»0 

7*3 

to 

76* 

to 

7*5 

»0 

746 

to 

767 

»0 

768 

*0 

769 

»o 

77(1 

to 

771 

»0 

77? 

»0 

773 

»0 

77* 

»0 

775 

»0 

776 

»0 

777 

»0 

778 

to 

779 

»0 

780 

»0 

781 

»0 

782 

to 

783 

to 

7«* 

to 

785 

to 

786 

to 

787 

to 

78? 

to 

789 

to 

790 

to 

791 

to 

79? 

to 

793 

to 

79* 

to 

795 

to 

796 

to 

797 

to 

7f8 

to 

799 

»G 

soo 

to 

801 

to 

802 

to 

803 

to 

80* 

to 

805 

»0 

806 

*J 

807 

to 

808 

»c 

809 

to 

"10 

to 

811 

to 

812 

»c 

813 

to 

81* 

to 

815 

♦  0 

816 

•0 

817 

»0 

81S 

•0 

819 

»0 

820 

•0 

821 

»0 

82? 

to 

823 

72 


RBUTIvt!       C!C 


2.6.39    SUBROUTINE  CIC 


SJ-lRBuTI'.E    UCMCEf  i  IR*/CICCT) 


SUrjOUTINE    C.IC    C8u\TS    T"E    NUMBER    BF    ACTIVE    CRITICAL 
IMr"SECTI9N    CB'-TRBLLERS 


INPi.T 
ILEF 


ClCcT- 


.     *6-"l     INDEX    r8R    BIT     INTERLEAVED    AROAV 
.    »8nD    I\D£X    F8R    BjT    ARRAT    (CICSC) 
.U18ES    hf    CIC'S    T8    BE    RETURNED 


INTEGER  LICEF  ,    CICSC  ,     CICCT  ,    CICP? 

cs^bn  /i5L<i-/     CICSCU6)       ,     ticsfim         .     ctls 

?    CILSV(»].CNSEC|31  l»CNTZN(19i,LM<CN(f,9l, 


.    TImC-ii'O  . 

ce^^BN  ZiiL^lS/ 
»  mmjjMF 
.  NL*RD 
.  N^SCT 
.  NRF.SP 
.  CS 
>    JS 

C8*N8N   A-)L<17/ 
.    lADPI(S) 
.    PITN.-I,  Jl  ) 
•    SThT"U2) 


ZS! (32) 
C-ISET 
NVCH 
N1ANP 

N^vtD 

NST'U 

DS 

RS 

aDvNm(s) 

CNTCRl  12*  I 
IT.f-L(31l 
TI1F8I32)/  0vei<(*9) 
■-'JU I  VALENCE  (CICEFU  ),L1CBR(S>  ) 
I«  ■  ICEF 
CBNTINOE 
J9  2.1  I-1»J2 
IN'JXl  •   (IRJ«3£)  ♦  I 
INJX2  .  ( IR»«32)  ♦  I 
CALL  SETS I { C I CEF> I NUXl « 1 3 1 T«  5 ) 
CALL  IdLTBI  (LICbC.  INDX2,  JdlT,-) 
IF( IblT+jBIT.E-iS)  CICCT  •  CICCT 
CSNTI\uE 
V-i    •  IR3  +  2 
11*     .  H»  ♦  1 
IF( IRJ.lE.^C-?2)  38  TB  10 
RETURN 
EN'.) 


H^UFL 

*Cw22 

NMCTL 

NPATB 

TBSld 

FS 

SS 

CICBP(g) 
CNTMM       ,  IL 
,   I-NTSU,32) 


IGP 

NC» 


■N^LNV 
JPB1. 
TRVTE 
NS 

scs 

LPABu 
«L2 


»5 
»5 

1 

2 

»S 

3 

»5 

it 

"5 

5 

*S 

6 

»5 

7 

15 

R 

15 

9 

♦  5 

10 

»S 

11 

»5 

12 

#5 

13 

»5 

14 

15 

15 

15 

16 

«b 

17 

45 

19 

15 

19 

»S 

2? 

45 

21 

<*5 

22 

45 

23 

45 

24 

»S 

25 

4b 

26 

45 

27 

45 

28 

45 

2? 

45 

30 

45 

31 

»5 

3? 

15 

3  3 

45 

34 

4b 

35 

45 

36 

45 

37 

15 

38 

45 

3? 

15 

»0 

73 


2.6.40    SUBROUTINE  CNVT 


r.jtKe:   cnvt 


•    CNVT 

SJMRBJTI'ME  CNVT(ADDR,NUM.BS1  i 

SUsk'BUTINe  TS  CSNvERT  EBCDIC  CHARACTERS  T8  ASCII  CHARACTERS 

IN°uT 

add*  •  address  bf  chauacter  string 
n'jm  .  -.umber  9f  characters  tb  be  converted 
osi  -  ckt  9utput  buffer  (crtb11  st9re  index 

i\teue-<    add*    ,  bsi 

•  CRTbl     ,  TASC 
DIMENSIB'-I   ADDR(512),  UPPER 

•  C8NV1(») 

CeifSN  /BLK15/  CHSET 

•  1NUMF  ,  nBmCh 

•  NLwRD  ,  NMANP 

•  NMSCT  1  NMvED 

•  N^ESP  ,  NSTMl 
»  CS  ,  DS 

•  os       1     f>s 

CB1MBN  /BLK22/   CRT6H512) 

•  CRTD2        ,   CRTFi 

THE  FSLLB^ING  DATA  STATEMENT  CBNTaINS  DECIMAL  CBNSTANTS  WHICH 
REPRESENT  THE  UPPER  AND  L8WER  NUMERICAL  LIMITS  F8R  THE  EBCDIC 
ALPhA  CHARACTERS.   (A  •  I],  (J  .  R),  IS  •  Z>,  (0  .  91 

DATA  Ld.ER(l),  UPPER(l),  LB«R<2)»  UpPER<2>»  LBwER(3l,  UPPEPI3), 

L6«ER(4|,  UPPER(4)/  192,202*   208,216,    225,23*/    239,250/ 

THIS  DATA  STATEMENT  CBNTAJNS  THE  EBCDIC  SPECIAL  CHARACTERS 
(NULL, SPACE,  .,(.),.«•,  0,1) 

DATA  TEBC(l),  TEBCI2I,  TEBCI3),  TE6C(4),  TEBClS),  TEBCI6), 

•  TEBC(7)»  TEBC(B),  TEBCI9)/  0,  64,  75,  77,  93,  96,  91,  122,94/ 

TH£  F8LL»»UNG  STATEMENT  CONTAINS  THE  CBRRESPBND ING  ASCII 
SPECIAL  CHARACTERS 


CHAR     , 

CHSET    , 

CBNV1    , 

TEBC     , 

UPPER 

LBwERit), 

TEBCI9), 

TASCI91, 

HBUFL 

,   IGPI 

NCW22 

,   NCh02 

NMCTL 

,   NMLN< 

NPATB 

,   NPB4 

TBSU 

,   TBVTE 

FS 

,   NS 

SS 

,   SCS 

CRTB2I512I 

,•  CRTDl 

, 

CRTF2 

>     flhfl 

DATA  TASC(l),  TASC12),  TASCO),  TASC<4) 
•      T*SC(7),  TaSC(6],  TASLI9)/  0,  3?, 


TASC(5),  TASCI61, 
I,    »u,  41,  45,  35,  5! 


»B 

1 

»8 

? 

48 

3 

»g 

4 

48 

5 

48 

6 

4H 

7 

48 

? 

08 

9 

♦  8 

10 

48 

11 

48 

12 

<>8 

13 

48 

14 

08 

15 

48 

16 

4B 

17 

•  8 

18 

48 

19 

08 

20 

48 

21 

48 

22 

48 

23 

48 

24 

48 

25 

48 

26 

48 

27 

48 

28 

48 

29 

48 

30 

48 

31 

48 

32 

48 

33 

48 

34 

48 

35 

48 

36 

48 

37 

48 

38 

48 

39 

48 

40 

48 

41 

48 

42 

48 

43 

48 

44 

48 

45 

48 

46 

THE  FBLl8wI'<G  DATA  STATEMENT  CBNTaINS  THE  NUMERICAL  CBNvrRSIBN 
FACTBRS  F3R  THE  ALPHANUMERIC  EBCDIC  CHARACTER  SET 

48  47 

DATA  CoNVKl),  C8NVK2)/  CBNvjO),  CBNV1I4)/  128,   135,   143,   192/     48  4g 

48  49 

IF  THIS  IS  AN  ASCII  MACHINE,  JUST  ST8RE  Oata  [n  CRT  BUFFER       48  50 

wIThBUT  CSNVERTING  48  51 

IFICHSET.E J-48)  G8  T8  80 

FIND  NUIrtER  PF  CHARACTERS  TS  BE  CONVERTED 


10  C9NTINUE 

INDEX  .   4 


48 

52 

48 

53 

48 

54 

48 

55 

48 

56 

48 

57 

48 

58 

46 

59 

CALL  jtTHTlADDR, 1N.CHAR) 
CBNTI'.oE 

DETERMINE  I>  EBCDIC  CHARACTER  IS  ALPHANUMERIC 

IF(CH*i<.LT.L».<ERUNDEX))  GB  TB  30 
IFICHAi. GT. UPPER! INDEX] )  UB  TB  30 

C8n»E-»T  Ch4^»CTER  TB  ASCI!  AND  STARE  IN  CRT  BuFFER 

CmaR  .  CHA><  -  C8NV1IIN0EX) 

CALL  PTBTICRT81, BSI, CHAR) 

faSI  •  -.SI  ♦  1 

09  TB  70 

CflNTINuE 

INDEX  .  INDEX  •  1 

]F( INUt A.GT.i)  G8  TB  ?u 

I^DEx  .  V 

CBNTInlE 

FIND  EBCDIC  SPECIAL  CHARACTER 

IF  IC-ia-t.NE.TEBCi  INDEX)  ]  GB  T>j  6C 

STtJhE  ASCII  SPECIAL  CHARACTER  IN  CRT  BUFFER  AND  INCREMENT 
CBU..TER 

I ASC  ■  IASCI INuFM 

C^NTI  juE 

CALL  PTBT(C*TB1,8S1« IASC) 

SSI  •  i-SI  ♦  1 

US  TB  70 

CSNTINuE 

INDEX  .  IliJtx  -  1 

IFI INDEX. GT' J)  G8  TB  4U 


48 

60 

48 

61 

48 

62 

48 

63 

48 

64 

48 

65 

48 

66 

48 

67 

48 

68 

48 

69 

48 

'0 

'8 

71 

48 

72 

48 

73 

48 

74 

48 

75 

4g 

76 

48 

77 

48 

78 

48 

79 

48 

80 

48 

81 

48 

82 

48 

«3 

48 

84 

48 

85 

48 

86 

48 

87 

48 

88 

48 

89 

48 

90 

48 

91 

48 

92 

48 

93 

48 

94 

48 

95 

74 


ASCII    EQUAL    SIS\    •    61 

. 1ASC    •    61 
GB    T9    BJ 
70    cS^TINuE 

INCkt^E^T   CahRaCT^R   ceu'iT    A^O   Check   FBR   LAST   8^E 

IN    a    Ih,   *    1 

If  (  I^lE.Su'1)    i"S    TO    10 
=>EIUR\ 

ST9KE.    ASCII    CHARACTERS    UIReCTLY    INTS    CRT    SUFFER 

SO    CBNTI'juE 

39    90    I.1.-.UM 

CALL    liETi3Y(ADDR,  l.CHAR) 

CALL    PTB»|CkTBl,BSI.CHAR) 

bSI    •    oSI    ♦    1 
90    Ce^TlKuE 

RETURN 

EhO 


«8 

98 

48 

97 

48 

98 

Ag 

99 

•  8 

130 

48 

131 

48 

10? 

48 

133 

48 

13* 

»« 

1-5 

48 

136 

48 

1-7 

48 

138 

«8 

139 

48 

113 

IS 

111 

»8 

112 

48 

113 

48 

114 

48 

115 

48 

116 

48 

117 
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2.6.41    SUBROUTINE  CRLF 


HSUTI.t:      C«i.f 


c 

•          CWLF 

SJ^HSullxE    CPU*  (nSi.M 

c 

Sba-eoTINf     I.RLF     SPACES     T«F 

CRT    CJGS*"'    D9.'.    (M    l 

c 

c 
c 

bSI     •    <-QT    OvjFFtO    STSOE.     t 
.    *'WF;K    (jF     U**ES    T« 

OEX 
SPACE    r««\   SN   CRT 

c 
c 

I\TEOE«            »S!                  ,    CUB1 
C9""<9\    /dL<22/      CRTSl(bl21       , 
•    C«TC2                    ,       CPTF(                    , 
D«'*    IC</    13/ 

CHT92(Si?)       ,      COTOi 
CSTFJ                      i       FtRFt 

DS    13    I»Xj% 

CALL    PTBV(C«TB1,BSN  IC«) 
bSI    .   oS!    ♦   1 

tsi    .   .SI    ♦    1 

-Eluw, 

51 

1 

51 

■> 

51 

3 

51 

» 

51 

5 

51 

6 

51 

7 

51 

S 

51 

9 

51 

1C 

51 

11 

51 

1? 

51 

13 

51 

!» 

51 

15 

51 

It 

51 

17 

51 

19 

51 

19 

51 

?- 

51 

?1 

51 

?2 
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2.6.42    SUBROUTINE  DC MAL 


RSUTINE!  DC1*L 

r.  •       scial 

SUBRBUTI^E    L>CMAL(9SI»NU1S) 
C 

c  subrbjtine  ucm*l  cb^verts  a  nuiber  scaled  bi  tb  nn«src9KDS), 

C  INS£»TS  A  DECIMAL  PBJMT  An,D  ST9RES  IT  IN  THE  CRT  BL'FFfR 

C 

C  INPl-T 

C  BSI   •  CRT  BUFFER  ST8RE  INDEX 

C  ||UMB  .  NUMBER  SCALED  »1  T9  BE  CeNVERTED  T8  F».l  F9R 'AT 


C 


InTECjE"  BSI  .    CRTBJ 

Ce-'hBK,    /OL<22/       CRTBK5121I    ,       CRrB2(512)       «       CRTDl 
.    C*TD?  ,       CRTF]  ,       CRTFJ  ,       FL«FL 

DATA    IO»V-  »*/•■       ■ 

C8NvE«T  NUMBER  TB  10  •  SECBNOS 

\'J"    m    i.yMB  •  5 

CALL  OlSMK(»SIi\UM) 

CALL  GtTBYlCWTdl,BS!.l«LAST) 

C»LL  PTBr(C«TBIjBSl-l/IDP) 

CALL  PTBr<CMTBli8SI«LAST> 

BSI  .  bSI  ♦  1 

RETUR ; 

em; 


50 

1 

50 

1 

50 

3 

50 

« 

50 

5 

50 

6 

50 

7 

50 

6 

50 

9 

50 

10 

50 

11 

50 

12 

5u 

13 

50 

U 

50 

15 

50 

16 

50 

17 

50 

18 

50 

19 

50 

20 

50 

21 

50 

22 

50 

23 

50 

2» 

50 

35 

50 

26 
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2.6.43    SUBROUTINE  DISIN 


RttJTlNiE!       CISIN 


JIS!  . 
Sj^t'JTlJE    JIS1MBPII 


So0~9JTIM£    LISIN    INITIALIZES    THE    c«T    SUFFER 
cPI       -       :>YTF    INDEX    F3R    C-»T    BjFFF-     (C9TBJ) 


IMEGE-     BPI       <  CHTH1 

*" 

CB'IMeN  /dL<15/   CHSET 

NBUFL 

I3P1 

•  1\uMF        t       NB^Ch 

NC»22 

NC.D? 

•  NCoRD         <   N*»NP 

NHCTL 

N1LN< 

•  VSCT        ,   s-WED 

\PAT8 

vPBA 

•  \1ESP        ,   \ST"1 

TBSU 

T3YTE 

•  CS           »   DS 

FS 

\<i 

•  as        ,  «s 

ss 

scs 

C9^8\  /*1<Z2/       CRTB1I512) 

CWTd2(51?) 

CRTDl 

•  C-<T02        j   CRTFl 

C-JTF2 

^LRFl 

DATA  Lt»3  /  126/ 

DATA  ICLR  /   28/ 

iATA  I  ..EL  /  127/ 

DAT*  IS3KS/   25/ 

DATA  IbLNK/  12/ 

c 
c 

c 

Ib'TE  •  jBkCh/s 

F9H..  9N£  -6-15  9F  BLANKS  . 

D8  K  IHjIBVTE 

CALL  PTBYdbLK*,!.  IBLNK) 

c 
c 

c 

10  C9"-TI\uE 

BLA>«  t)jT  RE^AIMSS  »")RDS 

i%  the  crt  Buffer 

\C«TB  •  (BpI*23»*)/IBYTe: 

ISTRT  .  SPI/IBYTt  ♦  1 

39  20  lilSTHTjN'CRTB 

CRTBK  I  )  ■  I3L<« 

c 
c 

20  C9MTlNuE 

ST3i<E  FI*ST  T-9  a9RDS  IN 

CRT  aufFEc 

CALL    PTBY(C*TBliBPI       ,LEAD> 
CALL    PTBY(C«TBljBPI*liICLP) 
CALL    PTBY(cKTBljbPI»gjIDEL) 
CALL    PTBY(C*<TB1jBPI»3j  1UEL) 
CALL    PTBY(CHTB1.BPI*4jLEA0) 
CALL    PTBY(CKTBl,BPI*5#ISdKlJ> 
CALL    PTBY(CHTBl»BPI+6iC0 
CALL    PTBY(C<T61»BP!*7»C) 
BPI     •    bPI     ♦    9 
RETuR  . 
EM) 


53 

1 

53 

2 

53 

3 

53 

k 

53 

5 

53 

6 

53 

7 

53 

a 

53 

9 

53 

15 

53 

11 

53 

12 

53 

13 

53 

1« 

53 

15 

53 

16 

53 

17 

53 

15 

53 

19 

53 

23 

5J 

?1 

53 

2? 

53 

23 

53 

2» 

Sj 

25 

93 

26 

53 

27 

53 

2? 

53 

29 

53 

35 

»J 

M 

53 

3? 

53 

n 

53 

3« 

53 

-<5 

53 

36 

S3 

37 

53 

in 

53 

19 

53 

**C 

53 

•1 

53 

-? 

53 

fc? 

53 

**. 

53 

*5 

53 

*6 

53 

»7 

53 

»9 

53 

»9 

53 

sr 

53 

si 

53 

52 
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2.6.44    SUBROUTINE  DISNM 


RSUTlNEI       LIS\h 

C   •   aisv. 

C 

e      sua^euTiME  bisnm  converts  *  binary  mjmber  ts  ascii  a>:>  stores 

C  RESiLT    IN    The    OT    BUFFER    (CRTB1I 

C 

C  DM       .       BYTE     INDEX    8F    Cot    BUFFER    (CRTfcl) 

I^TEuEh  opl  i    CRTB1 

C 

CSlf.B'l    /eLi>.22/      OTBl(512)       ,       CKTb2<51?|       .       CRTDi 
•    C*TD2  ,       (.OTFl  ,       CRTF2  ,       FLRFl 

SijI    •    .  LIB 

IVOEX  .  oPI  *  3 
C 
C        ISSlATE  binary  DIBIT 


C 


39    2:     I>1«* 
I  REST    .    NU.VI0 
IRE"    .    NOP    -     IkfST.lc 
IF  [  IREST.Nt  •:.)    GB    Tb    10 
IFI  [REi- .NE.CI     u8    TP    10 
IFI  I  .E.^.  1  )    li8    T9    10 
IREM    •    -16 
10    CSNTINuE 


c 

CRT  3jFFt»  (C»Tdl)  AT  LS 

c 

IREf".  •  HE ■■'  ♦  »8 

CALL  DTBY(CRTBlf INDEX, !«£*> 

|\JEX  .  INDE.X  -  1 

Nul  •  IREST 

?j  ;bmti\ue 

dpi  •  epi  ♦  » 

R£TuR\ 

ENO 

52 

1 

52 

2 

52 

3 

52 

it 

52 

5 

52 

6 

52 

7 

52 

R 

52 

9 

58 

i; 

52 

it 

52 

i? 

52 

13 

52 

1* 

52 

15 

52 

16 

52 

17 

5? 

IB 

52 

19 

52 

20 

52 

21 

52 

?? 

52 

23 

52 

24 

52 

25 

52 

?6 

52 

27 

52 

23 

52 

29 

52 

3C 

52 

31 

52 

3? 

52 

33 

52 

34 

52 

35 

52 

36 
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2.6.45    SUBROUTINE  GREEN 


r9uti\e;    gseen 


SREEn 
SJSR8JTINE  'JPEENIBSI,  INDEX,  IPm»S) 

THIS  KBjUNE  ST8HES  TH£  DESIRED  PHASE  LABEL  IN  TH£  CRT  BUFFER 

INPUTS 

oSI    •  LPT  BUFF£H  ST8PE  INDEX 

INDEX  .  INDEX  F8R  GGUG  AND  SSSS  APWAYS 

|Phas  •  l   a. Phase  Gmeen 

2  B. phase  gkeen 

3  C-PhASE    SHEEN 


MTEUL& 
DftNSI 
C8HMBN 
.     THUNH 
C9~1MDN 

•  DUmyj, 

•  <LL(17 

•  -J-lyAK( 
CB^MBM 

.    CSNTd, 

•  ENBFE, 

•  uLABCl 
.    SSSSl 1 

DATA  AH 
DATA  AP 
DATA  Ap 
\JHB  ■ 
BS1    ■    » 

\CHAH     • 

CALL  O* 
CALL  GE 
1F( (IN 
CALL  3L 
CALL  liE 
iOx  ■ 
CALL    BE 

\U1B  a 
CB^TI 
CALL  DC 
CALL  0 
SETUP'. 
END 


BN    A 
/<Ki< 

4) 

/3L< 

DUM 

!.    < 

31) 

/3L< 

62) 

31) 

124) 

24) 

hAS( 
AS( 
AS( 


APHAS  ,    asi 

HHASI3.31 
«</   CNT10 


NMC 


1.1) 
1,2) 
1<3) 


CLE 

CNTL 
(17) 

SE 
CIC 
CJH 
GGG 

uG: 
Tk 
I  API 
AP 


NQ        ,   DTLNG 
N(372I,ENTFL(5>, 

KCSF117) 
Si<(  3) 


TF(8) 

BF(31) 

T(l24) 

GU24I 

(31) 


VRINT( 153) 
CT9DF(g) 
CYCLC<31) 
GAWTP|31  ) 

BUABClia*) 

wKKBF,3i) 


IAS(2»1  )<APHAS(3(1  )  /  'A 

iAS(2,2),aphAS(3,2)  /  'B 
iAS(2(3)»ApHAS(3,3)  /  'C 


CHlNG 


LNKPTI 
STBYOI 
ENINTI 
GB^TPI 
iNTDul 

','ASE 
i.'ASE 
•,'ASE 


SKI 
8) 

496) 
31  I 
496) 

i.'Ga. 

'.  • GR. 
','G*. 


0 
SI 
12 

VT(  A 

TBY( 

EX.\ 

TdY< 

TBY( 

INTV 

TdYl 

ISSS 

E 

1AL( 

LF(o 


♦  6 


HHaS(1,IPHAS),NCHaR»BSI) 
NHvAR,\!MC»NVl  ) 
HC4) .GEiNV] )  G8  Ts  10 
SSSS, INDEX/ ISSS) 
vHIM, INDEX, InTv) 

♦  NMClb 
INTOU, ImDX, IVV] 
IW 

HSI,NU1t)l 
SI.1I 


27 

1 

27 

2 

27 

3 

27 

4 

27 

5 

27 

6 

27 

7 

27 

B 

27 

9 

27 

10 

27 

11 

27 

12 

27 

13 

27 

14 

27 

15 

27 

16 

27 

17 

27 

IB 

27 

19 

27 

20 

27 

21 

27 

22 

27 

23 

27 

24 

27 

25 

27 

26 

27 

27 

27 

28 

27 

29 

27 

30 

27 

31 

27 

32 

27 

33 

27 

34 

27 

35 

27 

36 

27 

37 

27 

38 

27 

39 

27 

40 

27 

41 

27 

42 

27 

43 

27 

44 

27 

45 
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2.6.46    SUBROUTINE  KFTU 


*FTU 
SJ3R9JTINE  KFTU 

SU8R8UT1NE  KFTU  «EC9R0S  FAILURES  IN  THE  FAIL  TABLE  AND  TURNS 
FAIuURE  LIGHT  anC  ALARM  8*.. 


INTEGE-  ALA1*"" 
IMTEGE^  Tint 
INTEGE*   Ar.LC 

i  CICTF, 

t  OTR2, 

■  CNT3. 

.  DTTAi, 

>  GGGG  , 

•  CHSET, 

»  STATE. 


C1ALF# 
CRTA1, 
C'lT»B< 
Dri»DE» 
M9LD  , 
FTAB  , 
VRINT 


BLANK 

BVTCT 
CmmaL 
CTAg 

CPN9T 
OIS 
PAl 
FTB4 


M, 


BSI  , 
CNSfC, 
CHT81. 
CYClO 
DiALF, 
SLDFC, 
FLRFL/ 


CICCT, 
CNTLN, 
CRTB?/ 

CMLNG. 
DFAIt, 
SECEC, 
FMTCH/ 


CICEF, 
CMTFj, 
CRTDl, 
CLENG. 
ENTFL. 

SHAR  , 
FfTNU. 


CtCSF, 
CRTF-,, 
CRT0?< 
DTLNG« 
EN9FF, 
V3L  , 
F-ITTY, 


CICSC. 
CRTNM, 
CJPBF. 
D*L  ' 
FLTABj 
C\T1J, 
SSSS  i 


3I1ENSI9M    TIHE(») 
DI-^ENSISN    LtMGOl 


JNtST 
K.HAST 

mpbky 
CICSCH6) 


NBMCh 
NMANP 
N"VED 
NSTM1 
OS 

RS 

CICTF(S) 

CUR9F|31) 

GGGT(lJt) 

GGuG(12») 

TKMOl  ) 


F-AHK  »  HAST(9) 

KMAST  ,  EMAST 

QHAST  /  HAST 
OCNT 

CICSY,g)  ,  CTLSC(1( 
FLNKCM*9). 

0*LP(17I     i       E9DC 

DTLNG        <   CHLNG 
NTFLI5), 
), 

,   VRINTH23I 

.   HBUFL 

i       NCW22 

,   NMCTL 

,   NPATB 

,   TBSK 

.   FS 

.   SS 

.   CT9DF|8l 

/   CYCLC|31) 

,   GA1«TP<31] 

,   GuAbC(12») 

,   wR<BF(3l) 
CuLll'li  CMTABI25A), 

',   DMALF,17)    i       DIODE 

,   M8DES        ,       NAI 

SC0FC(»),  V9LU38* 
*RC1(?)»HS9( J*I»*P9M1 (l»),rPM9U 

,   JCNT         i       KCNT 

,   CL9CK        »   x^\\f 

,       Nt)N9(8) 


LNKPTI64! 

IGPI 

nC»Dj 

N"LN< 

NPB» 

TBYTE 

NS 

SCS 

STBYJ(S) 

ENIMT(*96) 

3B»TP(31 ) 

INTDU(.»96) 


CSMmBn  /BLK6 
.  mhaST 

•  hhaST 

•  SPACE 
C9HM9N  /BLKl^,         ,  ,.., 

2  CTlSYi+),CNSEL(31 ]»CNTZN(1 

•  TIMChi*)     ,   ZSK32) 
CSHMBj  ZbLKl?/   DWLC259) 

1  FTAB,  FTB*U,  M9EIFI69) 
C91MB\  /BL<1»/   CLENG 

•  DJMVi,  SUMT?/  CNTLN(372]jE 

•  «CL(17).  kCTF(i7),  KCSF<17 

•  S1VARI31)  /       SE«SK(iJ> 
L8"iM8\    /BLK15/       CHSET 

•  MNUMF  / 

•  -vtwRD  j 

•  V'SCT  I 

•  NRESP  f 

•  CS  i 

•  US  i 
C91M8N    /BLM8/ 

•  C9NT»(62)  « 
.    ENBFF(3t)  , 

•  31ABC(124)       , 

•  SSSSC  124)    ,       .... 
CB^MBn  /BLk25/  AHCCI138),  C 

•  3TTAbc2S8)   >   DISH7) 

•  FLTABI800)   *   HRF 

•  N9FAL.  SBAR(69).  SLCFC(»). 
C91HBN/BLK2B/AGR(1*)»PIA(6I 

•  MARR(„ito)    «   HHAPI2) 
.  UNCI'S        ,   khSBF 

.  1INCT        ,   TABI3) 
EQUIVAlE-iCE  (LENU(1!»CLENG! 
DATA  BLA-iK/  '      '/ 
DATA  ALARh/  16/ 
I3VTE  •  NBMtH/i 
IFTAB  •  FTAB  +  1 

I  •  1 

IR1  •  1 


SUB^BUTINE  T9DAY  IS  AN  ASSEMBLY  LANGJAGE  R9UTINE  THAT  RETURNS 
The  CUhRtNT  T1HE  AND  DATE  (TIME  Is  01  [lE^SIBNED  TIME!*!) 

CALL  T3DAY(TIME) 

CHECK  FAILURE  E'NTRY  FLAGS 

IFIENTFLI I I'Ea.O)  G9  TB  20 

I  •  3 
l;  C9NTIN^E 

IFIENTFLI  I  I'NEO)  G9  TU  20 

I  •  I  •  1 

IF  t 1 . 3T. 1 )  U9  T9  10 
20  C9NTI MoE 

I  TYPE  •  I  ♦  2 
33  C8NTINUE 

GET  PR9PER  TABLE  AND  ITS  VALUE 

IF(I«2l  40/9Q.60 
tO  CBNTINOE 

CALL  haLFicBntb, IRl/ IE0PN) 

ae  T9  70 

SO  C9NTlNuE 

CALL  HALFIDTTAB, IRl» IE0PN) 

G9  TB  7u 
60  CBNTInjE 

CALL  HALF(CnTAB, IRl/ IEUPN) 
70  CSNTINoE 

ADVANCE  FAIL  TABLE  C8UNTER  AND  TEST  F9R  GREATER  THAN  MAX 
ENTRIES 

N9FAL  ■  N8FAL  ♦  1 
JF(MNU;1F.LT«N9FAL)  G9  T9  93 

STORE  NB  ACKNOWLEDGE  IN  FAIL  TABLE 


14 


HI 


9 
10 
11 

12 
13 
1» 
15 
16 
17 
IS 
19 
SO 
21 
22 
23 
2* 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3* 
35 
36 
37 
3» 
39 
»0 
»1 
»2 


51 
b2 
53 
5» 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6» 
65 
66 
67 
68 
69 
70 
71 
72 
73 
71 
75 
76 
77 
78 
79 
80 
81 
8? 
83 
8* 
85 
86 
87 

as 

89 
90 
91 
92 
93 
91, 
95 
96 
97 
98 


81 


C»LL  PTBYIFLTAB, IFTAB, 0) 

IFTAB  •  IFTAB  *    I 

ST9RE  TYPE  OF  FAILURE  |\  TABLE 

CALL  PlBY(FLTAb,  IFTAB. ITYPLi 

IS  THIS  A  DETECTOR  BR  CoNtRSLLE*  CP^-UN ICATI9NS  FAILURE 

IF(  I. Ei.il  )  Go  T8  120 
CALL  H»LF(a"L»IFUP\.ID*L) 
CALL  GETBYlLNKCN,  IOL«l,  ILNK  ) 
CALL  jETUYiCnSEC, IlNK«1,ISEL| 
If  (  ISEfEQ.O)  Go  To  30 
SCOFC(ISEC)  •  S.CDFCI  ISEC)  ♦! 
9 J  CSATlNuE 

ST9»E  E.UIP1EM  NUMBER  IN  FAIL  TACLE 

IFTB«  •  (IFIAb  ♦  IkYTEI/IBYTc 
CALL  PT-iLF(FLT*Hl  If  TB«)»2«  IEOPN) 
IFTAB  ■  IFTAh  *  3 

PUT  TIhE  Aiw  DATE  IN  Pail  TABLE 

CALL  PTBYIfLTAt-,  IFTAB, BLANK) 
CALL  3tTBY|Tne,l,IHR) 
CALL  PTHY1FLTAU, IFTAB*1» Ihk) 
CALL  jlTBY(1  I*"E,2,  IHR) 
CAI.L  PTBYIFLTAB, 1FTAB*2, |HR) 
CALL  GETBY(TIME,4,  IMIN) 
CALL  PTBYIFLTAB, IFT»b«3» I " I N ) 
IFIAB  .  IFTAi;  »  , 
INJXT  •  »/IBYTc. 

I^JxF  .  (IrTAB  ♦  IoYTEI/IBYTe  .  1 
IEND  •  i/IUYTE 
09  S5  j.l.IENO 
INJ»T  •  INJXT  +  1 
INOaF  .  lNgXF  ♦  1 
FlTAoiINDXF)  •  Tllf  (INCXT) 
8b  CS^TlNuE 


ADv 


vCe    byte    C9^NTE*    T9    NcxT    FAIL    TABLE    ENTRY 


IFTAti    .     IFTAB    ♦    8 
SO    C9NTIM.E 

HI     •    I«l    ♦    1 

IF(  IRl.LE.LtNGI  II)  G9  To  30 

IFTAB  .  IFTAh  .  1 

SJdBSUT]vE  ISTRP  IS  AN  ASSEMBLY  LANGUAGr  R8UtInF  T9  ENABLE 
OH    DISENABLE  THE  I^TERUPTS 
IRUPT  >  o   DISENABLE 
1HUPT  •  1   ENABLE 


DISENABLE  I  UEPoPTS 

IRJPT  .  j 

CALL  I^TRPl IRU^T) 

FTO*D  .  IFTAB/I8YTE 
FTAB  •  IFTAB 
LlNGd)  .  3 
ENTFLl I )  .  0 
ENTF L(1 I  .  -1 

ENAnLE  INTEKUPTS 

IP'JPT  •  1 

CALL  Iv,TRP(  IRUHT) 

IA'JD  •  EmTfL(2)  ♦  ENTFLO)  -  1 

IF( IADL.LT. 0)  G9  T8  110 

SCHEDULE  "TNK  FAR  M8RE  PROCESSING 

MASTIKJ  AST)  •  l 
100  CSNTlNuE 

TURN  8N  ALARM 

CALL  PTrtI (CPN8T, ALARM, i,G) 

TURK  9N  WARNING  LIGHT 

LtUHT  .  I  +  9 

CALL    PTBI (C"N9T, LIGHT, 1,0) 

GO    TM    NyRMAL    RFTURN 

ii5    To    131 
11  :     LS^TlMoE 

*C*T    .    5 
G9    T9    1 Jj 
12:    C9"-Tl'.a 

CALL    Jr  TrtYiCNSEOIE'JPN,  ISEC) 
SECFC(ISlC)     •    SECFC(ISEC)     ♦    1 
GO    T9    sj 


SUBr,90TINE    KFTU    N9RMAL    RETURN 


130    C9NTINUE 
RETURN 
FNJ 
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44 
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44 
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44 
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44 
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44 
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44 
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44 
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44 
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44 
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44 
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»A 
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44 
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»» 
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44 
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44 
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44 
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»» 
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"A 
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14 
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4» 
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44 
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44 
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•  A 

136 

44 
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44 
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44 

139 

44 
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44 

141 

44 

142 

44 
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44 
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44 
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4=> 
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44 
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44 
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« 

149 

44 

ISO 
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44 
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44 
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44 
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44 
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44 
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44 
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44 
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44 
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44 
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44 
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44 
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44 
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44 
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44 

166 

44 
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44 
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44 
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44 
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4U 
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44 
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44 

1/3 

44 
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44 
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44 
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44 
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44 

ISO 

44 

1*1 

44 
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4» 
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t4 
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2.6.47    SUBROUTIN  E  TODAY 


WutIme:     T93»v 


20  1 

20       ? 


.  •  T9Jty 

.  SUB^S-lTI^E    T9DAY(Tf.BF)' 

.                                 fiaUII'iE-.Ta    3tT    DJRRJAT    TI*E    SF    DAY    FRB*    »B»  20  3 

,              ?0  » 

DEF  TBCAY  JG  5 

REF  9SETJPN  ?0  b 

RES  1  ?3  7 

TI^&F     RES  1  30  ' 

DATA  1  20  9 

PTrtPl     res  1  20  1C 

T8UAY     RES  0  80  11 

II. b  1  20  1? 

BAL.6  9SET'JPN  20  13 

GEM.8.2*  J»TI1c<F  20  1» 

ST*. 15  PTMP1  20  15 

CAL1.8  T!*E  GET  RB",  TI"IE                       20  16 

II. 1  3  20  17 

LB9P      RES  0  20  IS 

L«.2  TBuFF.l  PuT  TI*-E  IN  SJBRBoTI-.E  ARj         20  19 

ST., 2  .TIM9F.I  20  2C 

AI,1  -1  20  21 

BCE/  L9»P  SET  ALL  »  iBROS  BF  TI-'E            20  22 

B  «PTMP1  20  23 

TI"E      RES  0  20  ?» 

GEM,8»2«  X'10'(«A(TBdFF  I  20  25 

TfaJFF            RES  *  Tl^F    BUFFER                                                              20  26 

END  JJ  n 
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2.6.48    SUBROUTINE  TRIG 


TRIG 

SUSM8UTINE    TPI3 

"■JUTIME    TB    TKIGCjEH    LWT    DEVICE 


DEF 

TXICi 

PTIPJ 

RES 

1 

trim 

RES 

0 

ST, ,15 

PTMP1 

C4L1.5 

Tfciia* 

b 

•PTlPl 

TRlllt 

RES 

c 

DATA 

»'*8> 

E*D 

T»!&r,FR    T"E    CRT    CiVICE 


?1 

1 

?1 

2 

?1 

3 

?1 

4 

21 

5 

?1 

t 

21 

7 

21 

« 

51 

9 

21 

1? 

21 

H 

21 

l? 

21 

13 
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2.6.49    SUBROUTINE  SCODE 


»9 

1 

»9 

? 

»9 

3 

♦  9 

* 

*9 

5 

»9 

6 

»9 

7 

»9 

? 

»9 

9 

»9 

13 

♦  9 

11 

»9 

1? 

*9 

13 

•  9 

1» 

•  9 

15 

•  9 

16 

•  9 

:  7 

•  9 

I  B 

•  9 

19 

»9 

?: 

»9 

?1 

z       ■   scs:)? 

SJ*R9uTl  .E  SC6i;r(9Sl»ICH»0,!«uT,Ll,.EJI,=  T«M 

C         bjd-9jT!-«E  SC93t  ST9RES  T*E  DESIRE?  STATjS  C9DE  F9R  T-iE 
C         CET._CT8-S  »!.E  CONTROLLERS  t^  The  CRT  aU*  *  £P 

C  INP^T 

C  DSI          -    C*T    BlFFE*    STtjKr    INDE» 

C  IC"AR    .    STA1J5   C8JE    C-a=aCTER       1 1    •    Si    c    •    f »    3    •   C.    »■  ■    Ii 

C  5.0) 

C  I6UT   •  CUR«EN  NUMBER  9f  ITEMS  9^  TwjS  PRINT  l!ne 

C  LINE   •  CURRENT  LINE  C9jNT 

C  [-(T^S  -  c   "'"E  DAT*  T9  BE  9uTBuT,  CONTINUE  P*9CESStN3  -OB1* 

C  RETURMNj  T9  CALLInS  ROUTINE 

C  1   LAST  3ATA,  lie  T8  SUTPLT  -9aP.jP  _b>jn  orTjR-.tNG 

C 

lNTElitc            OS!  <    Cntj;          ,    C«TBl          ,     TKuNI 

3PENSI9-N    IC(5) 
C 

c;i^e\  ««></     cNTii  ,     \-c  .  n<c«        .     n»cis     > 

•  T^L'-lct) 

CS^Sn    /dL<2?/      CRTBKS181      .  C-iTa2,c1?)      ,      ;;t;;                 ,                    49  p? 

•  OTl'2  ,  CRTH  ,  C'TFa  ,  PLRF..  »9  '3 
DATA  IC.R/  13/  49  ?(, 
CAT*  tC<l)»lC(l)»lC(3)#IC(»l,IC(5(/  A3»  72»  67.  73,  »,«/  «9  pa 
3S1  •  rS;  .1  »9  »6 
CALL  PT8T(C-<TBl,cSl»  !C(  IC«AR|  |  no  it 
ie.IT  •  IBUT  ♦  l  ,9  Jt 
ESI    .    tSI     .    2  »9  ,o 

lnt'io  .  cnti:  -i  t,      ,; 

IFICNTi ..GT.']    RET^w  .  .9         j. 

lI-'E    ■    LINE    »    1  *s  ji 

IPILnttLT.eS)    Q8    T8    ir  49         31 

IR*V      .     ?7  49  j. 

IC9L     «     ?6  «9  ,t 

CALL    StTCRlBSI, IK8-. IC8L!  49  3»" 

nCa^    .    16  »,  37 

CALL    C  ./TlT^uM.NC^A^.nSI  )  .9  f« 

C  .9  39 

C                       CS-iPLETE'J    TARLE    *ETu-*N  ,9  .- 

C  494* 

IRTRN     .     J  ..;  4, 

'E'LR-.  49  .3 

Z  fcT  .4 

C  STA„T    A    NE»    lINl  *<i  46 

C  A3  a  6 

10    C9--T1'.„E  49  *7 

CALL    PT3T(C<TB1,BS1»  IC-i)  .9  4» 

bSI     ■    -_SI    *    A  43  .= 

LNTlC    .    10  »•)  5C 

C  »  »  bl 

C  M8RE     JATA    RETuRn  A3  ,5 

C  »9  r>3 

IRIKN    ■    0  »9  b* 

stctuRn  49  5? 

ENJ  a<3  i* 
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2.6.50    SUBROUTINE  SETCR 


RfluTlNE!       SETCR 


SETCH 
SJBR8UTINE    SETCRlBPI,  IRS*,  K8L) 

S0BK8'JTINF    SETCR    INSERTS    CURSBR    C8MRSU    CBMrtANCS    IN    THE    CRT 

BUFFER. 

CALLING  ARGUMENTS 

BPJ   -   CRT  SUFFER  POINTER  INOry 

IS8*   -   BINARY  R8»  NUMBER 

IC8L   •   BIN*RY  C8LU1N  \U1BER 


INTEGER 


BPI 


CHTBl 


CRTB2IS12) 
CRTF2 


CRTC, 
^LRFL 


CB^MBn  /3LK22/  CRTBK512) 
•  CRTD2  ,  CRTFl 
DATA  LEAD/  126/ 
DATA  ICP/  17/ 
IC  •  IC8L 
IR  •  IkS« 
IR  ■  Ih-1 

PUT  LEAO-IN  CHARACTER  IN  CRT  BUFFfR  (FJRST  BVTE  »  X'7t') 

CALL  PTBY(CRTB1»BPI<LEAD) 
BPI  •  oPI  ♦  1 

SET  CURSOR  P8SITI8N  C8M1»\D 

CALL  PTBY(CRTBl»BPI< ICP) 

»PI  •  bPI  ♦  1  * 

put  R8»  and  C8LU"n  number  in  CRT  buffer 

C»LL  PTBY(CKTB1,BPI. 1CI 
BPI  •  BPI  +  1 
CALL  PTBY(C*TB1.BPI< IR) 
BPI  •  BPI  ♦  1 

RETURN 
END 


5* 

1 

5* 

? 

S» 

3 
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1? 
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54 
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54 

38 

86 


2.6.51    ROUTINE  M 


R9UTINE!   RT\1 


C    •    -<T^  55     1 

SJSRBuT  I  JE  *TN*  55     2 

r  55     3 

OIKENSlSM  »UT9F(7)»C!CEF(7).CMAUF(7)»  55    » 

•  FSTCF(7l«SPLCM(7),TRNSFl7)  55            5 
OPENS  I  S>.    C**M*(7)  55            6 

DIMENSI3N       IC-<TI2)  55            7 

C  55            S 

C  55            9 

C  55  10 

IMESE"    TI-lBUf  55  11 

INTEJE1*    AuT8F,C!CEF,efALF,FsTCF,SPlCW»TRNSF  55  1? 

I  NTECiE^    PRTFL  55  13 

IMTE&E^    3C\T  55  U 

INTEGER                         F1TTY                    ,       F1TSU  <       FmTCm                                           55  15 

1NTEUE*      Cn         /       C'.OIS.       C^TcLi      CRTF],      C>>If?«       FLRF|_,      F><sCF»  5S  16 

•  F-iSVF,       FmTCHj       FmTnU*       F^TTV/       FSTF|_»       m«F       >       STC       /       SmTFL/  55  17 

•  SN         ,       SRJIS.       SSFw    ,       C^TDl*       CRT02.       HI"AST»       hMAST,  T  !«0  55  18 
C  55  19 

C61«B\    /Bl«.b/    IPR3,     IwT,     IT«OLY/    JL I  r  1 » )  55  20 

CB*l*BN    /-I8LUS8/    SJRC»Mia»),WLOSPL(»l,KLD»FFl»),  ISaTE",  I3BTF"  55  i\ 

IMTEQE^    SUHCBN,HLDSPL»HLD8Ff  5S  j? 

C  55  23 

CB-lMBN    /BlK.6    /       FMC                         ,       FMARK  ,        1AST(9|               ,                       55  2* 

•  ''"'AST                    ,       J"AST                    ,       KMAST  /       E*AST                    ,                       55  ?« 
»    -CAST                    /       »1»ST                    ,       UKAST  ,       liAST                    ,                       55  26 

•  S*ACE                    ,       1P8KY                    ,       UCNT  55  ?7 
C  55  28 

CS-'h-BN    /rJL<10/      CICSCU6I          ,       CICSY(P)  #       CTLSCI16I          /                       55  59 

2    CTLSYl«)iCMSEC(31)<CNrZN{19)<UNKCM69)<  5b  it 

•  TI".Ch(»)             ,       ZSK32)  55  31 
C  55  32 

C3TBM  /dL<12/  0(138),  DAY*K,  JJ,  55  33 

•  INKSI(3>     ,   PATNM(3)     ,   PRTFL  »   SC':SI(?>     ,         55  3* 

•  scoMiaai.ssF.  55  is 

C  55  3* 

CS-'MSN    /BL*1*/      CLE^S                    .       DTLMi  /       C-LNj                    ,                       bb  37 

.    3JMY1,    OU'.YE,    CNTLM372),ENTFL(S)/  55  3» 

•  KCL(17)»    «.LTF(17),    KCSFI17),  55  39 

•  \"'VAR(31)          ,       SE"ISk(3)             ,       VRINTM23)  .       L':kPT(S4I                                 55  *0 
C  55  "1 

CB^MBN    /Bl«15/       CHSET                    ,       H6UFL  »       I3PI                       ,                       55  "2 

»    -iMjMF                    ,       nB^Cm                    ,       NCW22  ,       NOC2                    <                       55  *  3 

.    NCkRD                    /       NMANP                    ,       NMCTL  .        <1(A*                    ■                       55  *« 

•  N^SCT                    <       l^-lvED                    ■       NPATB  /       NPB*                       ,                       55  15 
.    \«ESP                    ,       NSTMl                    ,       TBS1Z  /       TSYTE                    ,                       55  »6 

•  CS                            »       OS                            »       FS  /       NS                            ,                       55  »7 

•  OS                            »       «S                            .       SS  .       SCS'                                              55  "9 
C  55  *9 

CB^KBN    /BL<17/       ADvNH(8l             ,       CICBP(8I  <       CPABolM             i                       55  50 

•  MDVPiai             ■       CNTURU2*)       ,       CNTni  ,       IL2                         »                       55  51 

•  INTMH31)          ,       IT'««L(31)          ,       !NT8u<3?)  »       <L2                         ,                       55  5? 

•  SIBTM,32)#    TI1E803),    0V8Mfc9]  55  53 
C  55  bi. 

CBlhON    /BL<19/       CICTF(S)             ,       CT80F(9)  /       STBY^l^i             ,                       55  55 

•  fNTai62)          I       CUR9FI31)          ,       CYCtCOl)  .       EN^T(»96)       /                       bb  56 

•  E^6FF(31)          i       aG3T(l2i»l          ,       OAWTP(31)  /       iiB'«Tpoil'      <                       5b  57 

•  Gl,ABC(12«)       ,       GS3S(12»>          ,       GUABCI12")  <       IMDJ(*96I       .                       55  bS 

•  SSSS112*)          j       TK^I(31I               .       WRK9F(31I  55  59 
c  55  60 

C8''^BN    /BUK19/    CC2I129),     DFAILI69)/    0BF(171»  5b  61 

•  -11(31)                  >       RA»BC(253)       ,       RAWSP(?53)  «       KTC                         /                       55  62 
.    TSTRK516)  55  63 

c  55  6* 

C91MBN    /BL<21/       DPT^^                    ,       FMSCF  »       F1SYF                    .                       55  65 

•  HSBUF(1J72).  "CUF,  TE»f>(69)  55  66 
c  55  67 

CBI^B.'.  /9LK22/   CRTBK512)   .   CRT,j2(512]  /   CRTDl        <          55  6B 

•  C*TD2        ,   CRTFl        ,   CRTF2  ,   FLRFl                  55    69 
c  55    70 

CBiMBii  /dL^^»/  AnIST(138l,  C^DIS/  OCF.  55    '1 

.  0BW          ,   F1T60        ,   FSTFL  .   HL1DF        ,          55    72 

•  MUIDTI96)    i       NHOAY        ,   PHCBO  .   PTM7H51     <         55    73 

•  SMTFL.  SROIS,  TMRSH,  VHISTI136)  55    ?t 
c  55    75 

CB^MB-J  /«L^25/  AMCC(13<1)<  CMlAt(l7)»  C«TAB(25S)»  55    76 

•  0TTA6(2b8)  i       BISI17)      »   0MALF(17)  /   O^eDE        •                     55    77 
.  FLfAB(800)   »   HRF           ,   KBDES  ,   NAI           ,          55    78 

•  NBFAL,  SBA*(69|»  SECFC(»)<  SCDFC(»),  VBLI13H)  55    79 

55    80 

CBlhBM/BLK2»/AiR(l»)iPlA(6)»RC1(2)<HSB(l»)iAPBMl ( it ) , CPN9U/CPN8T,   55    91 

,  MARR(S<.0)    /   M1AP(2)      ,   JCNT  <   <CM         /          55    "2 

.  MNC15        /   WMSBF        ,   CL8C<  /   «MI\F        »          55    83 

•  1INCT        i   TABI3)       ,   ^8^Je(B)  ,           5b    B9 

,'  55    85 

C91M8\  /BLK29/  ISYSTB. ISECSBl*)  /            55    86 

C  /                               5t>         " 

CS"lMBN    /HAKGS/      FMTTY                    ,       FMTMJ  ,       FMTCrt    ,    ,•                                  5b         98 

.                  1THN^(2)  55    89 

55    90 

CBMl-^  /  ;SUBl/MBlT(l6),"C;BrE<K,TEST,HF<IT,lPRT/ITIHE,'1SER  55    91 

c  55    92 

CBMMfllN  /MSU82/T11dOF(<().CKTCL  55    93 

z  55    94 

r  ••••    2-JC  CHANGE  55    95 

C91MBN  /G2CBNT/  wRKBFS I  12* ) / I  9 ( 12* ) / IEA ( 31 ) / ENTCYC ( 31 W SPL IT ( 12* 1 ,  55    96 

1    CRP'ilSl)  ?5        *Z 

1NTEGEF.    .JRKBFS.ENTCYOSPlIT.CGRPN  55         98 
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Ce^MSN  /BLKLV5/  LEvt5**SRTN5»E'>'05»END51,MI\CTS»*II^5f iBBTIME.SpTIN 
INTEGER  SRTN5.END5.ENDbl.8PTt  ME,  BPT  IS 


EUUlVAuENCE  (C.PT51,  ICf-T  (  i)  )  ,  (CRTo?^  I  CRT  (  2  I  ) 
EQUIVALENCE  (AUT8FI1 I.AIVN-(J) ).  ( C 1 CEf ( 1  I .CTBDF ( 2 ) ) , 

(t"ALF(  ll.CIClf  (21).  (FSTCFU  ),CPA9G(2)  ). 

(INT  1311 ). IADVP|2) ).  (SplChi 1 >»SEMSK(2) ), 

(TRNSFll ).ST8TD(2) ).  ( KC"lSP ( 1  I . PC* ( 2 ) I  . 

(GA1  (  1  l,AGP.(2>  ),  (HBLD(l),HS9(2>).(APB(ll.AP8Mll2)l. 
(LlNKPM,L\<PT),   (NDIAX.NMVEDI. 

("AXNC/NMCTL).  (YIELD. IaDVP),   (FSETF .FSTCF  I  . 

iCPMMl  1.PIAI2)  ) 

PRESET  ALL  MBIT  ARRAY  BFF 
D9  1:  I  1  1.1* 
M6IT(  1  )  •  -1 
CBNTI-xUE 
MT£ST  •  0 
MExIT  •  0 
IT] It  ■  0 


C  IsTTIAL  Call  T8  MS.U5  TB  UnPaC*  DATA 

MCeDE  •  -1 

C«LL  i-.SuB 
-        S£T  PRINT  FLAG  Tn  il*e    FBR  6'  BR  NeN  £ER8  f 9"  9FF 

PRTFL  •  IF-^T 
C  "EMT  •  1  F9R  SYSTE'  C9NTRS,.  enter 

C  .2  FBR  1AP  C9NTR8L  ENTER 

C  «  3  F9R  STATUS  DISPLAY  ENTER 

L  .  *  FUR  J9  SELECTI9N 

C 

IFlnExIT.GT.*)  G8  TB  1000 

3B  T8  (100.30Ct3u.1000)  ."EXIT 
C 

C     SYSTfcM  C9N.TWBL  ENTER  SELECTED 
C  A}/]  ,j        SYSTE"  SHuT.DBrtN 
C  EXIT  IF  PREviBJSLY  SELECTED 

C 

100   IF  (SmTFL.NE.O)    G9  T8  10S-> 

IF  (MTEST.NE.j)    39  TB   101 
C  STSTE"  SHuT.OBKN.  SfT  FLAG  AND  SC*EDULF  RjUTINE  H 

SHTFL.l 

"AST  (.-MAST)  •  '. 

GB  TB  100* 

C  "3/1.1  DETERMINE  TRAFFIC, CIC  BR  NB  SELECTIBN 
101   IFIrBI T!2) )1 180. 102,200 


L  dl/1  2       .TRAFFIC  CBNTRBL.  SYSTEM  C8NTR9L  ENTER* 

C  5  CriBICES  39  TB  E1-E5 

C  SYSTE"   OSES  TB  El 

U2   IF  (MdIT(3)  .Eu.  j)  (38  TB  103 
C  SECTI8N  G8ES  T8  E2 

IF  C"L'IT(t)  tE'J.J)  GO  IB  1»0 
C  C9NTRBLLER  TB  E3 

IF  (M0IT(5) •EU.O)  GB  TB  160 
C  DETECTBR  T9  E* 

Ic  (1oIT(6)iES.O)  GB  T9  17b 
C  C9MMLNICATI9NS  TB  Eb 

If  (  1i:IT(7)  .E3.0)  GB  T9  16b 
C  LRRBR  IF  KH    SELECTION 

GB  TB   1C*0 


FR')M  A3/101 


L       SYSTEf;  REIUEST  FBR  TRAFFIC  C9NTH9L  ANC  SYSTE"1  C6NTR9L  ENTER 
C  tl/1  3  FR9I-  31/132  .6  TYPES  9F  SYSTE"  REr.UESTS  GB  T8  Gl-3fc» 
BN  LINE 
IF  MrjITMu;)  106.10*. 106 

ERRBR  IF  PREvIBUSLY  SELECTED 
If  (FsTFLI  1080. lub. 1080 

SET  FIRST  START  FLAG  AND  GB  TB  33 
FSTFL.  1 

GB  TP  120 
FBR  ANY  8TrtER  SYSTEM  RE'lUEST,  FIRST  START  'Hj  MUST  PE  SET 
IF  (FSTFL. ET. : ]  59  T8  108J 

TRAFFIC  RjSPBNSIVE  TB  Gl 
Ic  l»t  ITlc) .E3.0)  GB  TB  110 

TJME-9F-0AY  TB  32 
IF  (  --.■!  I  Ol'E'J.O)  GB  TB  Ub 

stand-by  tb  3* 

IF  ("-ITdll.ESOl  38  TB  12=, 

RECBRD  HIST"RY  UN  TB  u5 


10a 

10<t 

10b 

: 

106 


If 


•.ITdZl.EO'DI  38  T8  13'. 

RrCBRD  hIst'.'RY  '<FF  TB  Gft 


I'  (M„IT( ltl.EO.O)  3fl  TB  135 

N9  SELECT  |«\  rPHBP 
39  T9  10-O 
C  ul/n1  .TRAFFIC  RESPBNSIvE/FBR  TRAFFIC  Cc-NTRBL  SYSTE'* 
C  *AIT  IF  lb  "IN  FLAG  9N 

11  J    If  (Fi-SCF.NE.O)  39  T9  1050 
C  ••••    2-31  Change 

IFILtvXbA.  <t.OI  39  Ts  1050 
1F|  ISYSTo.3T..j)  39  TB  10S0 
IT<CLY.-J 

SSF».u 
FlSCF.! 


f R9M  tl/106 


JJ 


•AST!  *,  ASTl'l 

SE'  C"ANGL  •  TRAFFIC  RESPBMSIvE 
FBR  31  ENTRY 


99 

100 
101 
10? 

103 

100 
105 
106 
107 
108 
109 
110 
111 
112 
113 
11* 
115 
116 
117 
US 
119 
120 
1?1 
122 
123 
12<t 
125 
126 
127 
128 
129 
130 
131 
132 
133 
130 
135 
136 
137 
138 
139 
1*0 
1*1 
1*2 
1*3 
l». 
1*5 
1»6 
1»7 
1»8 
1*9 
150 
151 
152 
153 
lb* 
155 
156 
157 
lbS 
159 
160 
161 
162 
163 

16* 
165 
166 
167 
168 
169 
170 


55   17) 
55   172 


5b 
bb 
bb 
55 
5b 
55 
55 
55 
55 
55 
55 
bj 
5b 
55 
55 
b5 
55 


173 
17* 
175 
176 
177 
178 
179 
1*0 
181 
182 
1*3 
1«» 
185 
l't 
1«7 

1HR 

1*9 


FmtCh  .  • 

StT  MCfiDr 
MCB'JE  ■  1 


5b  190 
191 
19? 
193 
lu* 
1  '5 
196 
197 
l'»8 
19=) 
200 
2?1 
2-12 
20  3 
20* 
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MJN  flags* 


.'VJTS^L  SYSTE" 
.BY 


GO  T9  126 
C  "2/11=       «TI-,r  (IT  3»v,  ->a!t  jr  15  M|M  FLA"i  a; 
C 

lib   IFIFmScF  .".r-OIGUTu  1030 
C  ••••    2-.iC  0<»\GE 

TF(LEvl5*.sf.o)  io  To  l?3n 

tr<  is»sta..iT»ai  go  n  ic5n 

c 

c 

SSFa  .  o 
F1SCF.  1 

j j.  o 

FiTCn.    3 
,1*ST(  a/*ST,     •    1 
C  SET    MCODE    F;?R    3?    .L\TRV 

ice^e  .  2    * 

G8    TO    126 
C    t>3/i?i         .STSTcm    ON.   Lt^E    •    SET 
.120         F^SVF    •    1 
F^SCF    .    1 
SSF'a.o 
C  SfT    ChANGf    ^    LINF 

F^TCh    .     13 
C  .     SC"C!;lILF    RIIJTINE    '< 

M»ST(»"*STi     .    1 

GO    TO    127 
C 

C  U*/l?5   StanO-by  FOR  TRAFFIC  r 
C  SET  CHANSF  F8R  STAND 

125  F1TCM.1 
C    CLJA*  HOLD  SPI.1T  ANO  OFFSET 

S3  1251  l>l<XMSCT 
iSiCS-H  I  )  il?5 
-LUSPLl I).o 
hLDOFFi I  I .J 
1251  C9NTINuE 
IT'CLY.a 
tSYSTO.125 
C  SfT  FOB  fi,  ES'TRY 

*iC&oe  •  « 

126  C'LL    'SUB 
C 

C      U/l:"i/127    SET    TIME    SF    M6DE    C"t 
C 

127  OS    125    I    •    l.MMSCT 

TII-CH(I)     .     I  TIME 
12i         C3MTI-..UE 
C  SFT    »A[T    C8J-IT 

GO    TO    136 
C    <>b/|30       ReCO«n    HISTORY    ON    FOR    U'RaFFJC    C8nt"9L    SvSTE"1 
C 

130       H*F         .1 
FITCH    .b 

GO  T8  136 
C  US/135   REC9RD  HISTORY  OFF 
135    hRF    iO 
FITCH  .6 
C  "11/136  ALL  TRAFFIC  CONTROL  SvlTcM  REOUtjSTS  J8K,  H^RE 
136   F1TTY  .1 
F1TNU  .0 

GO  T8  107,j 

C    E2/KO       TRAFFIC    C8NTR8L    SECTIfl. 

c  Mt)iT,n>  converted  r. 

C  FIRST    START    FLAG    Mile 

C 
1*0    IF  (FSTFL.r2.0i  GO  TO  ios; 
SN.MaiT(l) 
IF  (S\.GT.MMSCT1  G8  TO  In'. 

c 

C      i)  TRAFFIC  C9NTRBL  SeCTIOm 


FROM  1 1/106 


FRBH  fl/106 


FROM  El/106 


TIME  F8R  AL"  SECTlSNs 


FR81  El/106 


FROM  El/106 


REQUESTS  FROM  Bt/102 

DIHIT  NUMBER  FR.M  «8R0  3  8F  CPM* 
T  BE  SET  ANO  HAVr  VALID  SecTISN  \0 . 


C  TRAFFIC  RtSPONSIvJ 

IF  I.MuITlSliEi'J.'J)  GO  TO  1, 

C  TImF    of    [JAY    TO    H? 

if    (MsiHvi  •?■;• 0)     G9  T8   , 

C  MA-.UAL  PATTERN  Tn 

IF  (MnIT(16l. i'J.Q)  j8  TO  ; 
C  STA\T3Y  TB  M* 

1*1   T  F  (  Mb  I  T  I  1 1  )  .EG.OliSTO  15t 
C  U»M  t, 

no  to  i- 

C  Hl/t»5   TRAFFIC  RESPONSIVE  FOd 
C  *AIT  IF 

l»b    IF(FMSC>'<:T«0!  GO  TO  loS.l 
C  *•••    2-GC  CHA-.'GE 

IF(LEvl5*.nf.0>  G«  TO  105n 
1F(  I3EcSd(3--i).GT.01  G8  T8  J 

C  ••• 

FmtCh  •  * 
C  SET  FOR  Hi  E^TRY 

"CODE  ■  5 
CALL  fSUB 
59  TO  151 
C 

C  w2/lk7   T 1 '-. E  8F  OAY  Fon  TRAFF,, 
C  WAIT  IF  15  • 

1*7    IF  (FmSCF.mE.O)  08  TO  10k: 
C  ••••    2--iC  Chi  ]'jZ 

1F(LEVL5A.SE >0I  J8  TO  105n 
|F(  IbECS3(S'JI  .GT'OI  G8  TO  7 

C 

Fitch  .  3 


CHOICES  GO  TO  HilHi, 

T8  Hi 


\3    SELECT15M 


TRAFFIC  CONTROL  ;ECTle\    FR8M  E?/l"n 
15  MIN  FLAG  HM 


C8NTR0L  SFCTI9N 
IM  FUG  8N 


FROM  C3/l"n 


55 

235 

53 

206 

55 

207 

55 

208 

55 

239 

55 

210 

55 

211 

55 

212 

55 

213 

55 

21k 

55 

215 

55 

216 

55 

217 

55 

21* 

55 

21<t 

55 

220 

55 

221 

55 

222 

55 

223 

55 

2?» 

55 

225 

55 

226 

55 

227 

55 

22S 

55 

229 

55 

230 

55 

231 

55 

232 

55 

233 

55 

23» 

55 

235 

55 

216 

55 

237 

55 

238 

55 

239 

55 

2">0 

55 

2M 

5b 

2*2 

55 

2*3 

53 

2k» 

55 

2A5 

55 

2*6 

55 

2*7 

55 

2*8 

53 

2*9 

55 

250 

55 

251 

55 

253 

55 

253 

53 

25* 

55 

2S5 

55 

256 

55 

237 

55 

258 

55 

259 

55 

260 

55 

261 

55 

262 

55 

2*3 

55 

26* 

S3 

265 

55 

266 

55 

267 

55 

268 

55 

269 

55 

270 

55 

271 

55 

272 

55 

273 

55 

27* 

55 

275 

55 

276 

55 

277 

55 

?78 

55 

279 

55 

2*0 

55 

281 

55 

282 

55 

283 

55 

28* 

55 

2«5 

55 

286 

55 

287 

55 

288 

55 

289 

55 

290 

55 

291 

55 

292 

55 

293 

55 

29* 

55 

295 

55 

296 

55 

297 

55 

298 

55 

299 

55 

300 

55 

301 

55 

302 

55 

303 

55 

30* 

55 

305 

55 

306 

55 

307 
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C  SET  UP  FRK  H?  ENTRY  55  308 

MCBDE  •  6  55  339 

OIL  i-SoB  55  310 

C  38  T8  H20  55  3)1 

OB  T8  151  55  31? 

C  b5  313 

C  H3/1(>3   KA.NJAL  PATTERN  F9R  TRAfFjC  C8NTR6L  SECTION        FRBM  F»/1»0    65  31* 

C  SET  OP  F9H  H3  ENTRY,  55  315 

1*9    MCBDE  .7  55  3j6 

C»LL  1  SUB  55  317 

C  TEST  F9R  Erk»H  RETURN  FRBM  f.SUB  55  31» 

If  MTEST.NEO)  SB  TB  1080  55  319 

C  «AIT  If  15  MJN  FLAG  BN  55  323 

If  (FhScF.NE.'j)  G8  TB  105?  55  321 

C  ••«.    2-iir  CHANSE  5b  322 

IFILEVl5a.NE.o1  u8  TB  1050  55  323 

IF(  ISECSS(SN).oT.O)  SB  TB  1DF0  55  324 

C  ••••••*•  55  325 

C  H2J/151  55  326 

151    F*SCF.  1  55  327 

S5F.  .  1  55  328 

JJ  ■  SM-1  55  329 

C  Sc^FDULE  ROUTINE  -  AND  &9  Te  hi  55  333 

IF  (,-ITEST.NE.Q)  G8  T8  1080  55  331 

1AST<»MAST>  •  1  55  332 

G8  TB  155  55  333 

C  55  33* 

C  H*/l53  STA'-.DbY  FBR  TRAFFIC  C8NTRPL  SECTlBN  FRB  1  E?/l*o    5b  335 

C  bb  336 

153    FITCm  •  1  55  337 

ITRDLY.O  55  338 

C  SET  -JP  F9R  H»  ENTRY  55  339 

MCBDL  •  8  5b  3*0 

CALL  r SUB  55  3*1 

ISTST8.125  55  3»? 

!SECSB(SN).125  55  3*3 

C  "10/155       ALU  TRAFFIC  CBNTRBL  SE^TIBN  RfQuESTS  JOIN  HfRfc.  55  3*» 

lob  FmTTY  .2  5b  3*5 

F11TNU  •  S*  55  3*6 

TIHLH(SN !  .  ITI1E  55  3*7 

G9  T8  107r,  5b  3*6 

C  55  3*9 

C  t3/i6J  .C8\TW8lLFR  REQUESTS  F8R  TRAFFIC  CBNTRBL*  FR91  B1/1C2   55  350 

C  1dIT<l)»  CBNVERTEO  *  OJGIT  NUMBER  FRBM   *6Rk  3  9F  CPNJN  55  351 

C  55  352 

163   CN  ■  KBlT(l)  55  353 

IF  (CN'IT.NHCTL)  08  TB  1080  5b  35* 

F1TTY  .3  55  355 

F-ITNU  •  C,  55  356 

C   SI»  CHBICtS  FSR  TRAFFIC  CBNTRBL,  CBNTRBLLFR  G8  T9  Il-I6  5b  357 

c  failure  repmr  tb  i*  55  35* 

IF  (MblTClb)  .EQ«0I  09  TB  l-6(t  55  359 

C  FIRST  START  FlAU  SET  55  360 

If     (FSTFL.E'J.C.)  G8  T9   1080  55  361 

C  Bn  LINE  TB  II  5b  342 

IF  MtflT(lO).EQtO)  08  TB  16?  55  363 

c  standby  Te  12  55  36* 

If  [SbIT(H)tEQ«01  G9  T9  16»  5b  365 

c  failure  acknbwleoof.  tb  13  55  366 

IF  (MeIT(l3l.EC'0)  09  T8  166  55  367 

C  A. PHASE  OREEN  TB  15  55  368 

IF  IMbIT(16).EC>1 I  jB  T8  17o  55  369 

C  8FF«SET  TB  lb  55  370 

If  (Sb!T(l6I.E0.2i  09  T9  17?  55  371 

C  ERRBR  IF  N9  SELECTJBN  55  37? 

0"»  T9   lose  55  373 

C  55  37* 

C  11/162  ON  LINE  SELECT19N.  FRB1  E3/160    55  375 

162    "1C80E  •  9  55  3/6 

CALL  i-SUB  55  377 

C       E^RBR  IF  CNT«9LLtR  BR  ITS  SECTIBN  in  STA^OoY  BR  nALF  FlA^  BFF     55  378 

IF  MUST-NE.;.)  G8  TB  1080  55  379 

C  SET  CHANGE  9N  LINE  AND  Gfl  Te  UPDATE  CHANGE  TA3LF  (»T8I     55  380 

FITCH  ■  J3  55  3M 

GB  T8  1070  55  38? 

C  55  383 

C  12/16*  »STAND.BY  SELECTI8N*  FR8«  E3/U0    55  38* 

16*    1C9DE  ■  10  55  385 

C»LL  rSUB  55  386 

C  SET  Change  F6R  STAN-jBY  ANB  GB  T8  UPDATE  CHANGE  TABLE  55  387 

Fhjch  •  1  55  388 

38  TB  1070  55  389 

C  55  390 

C  13/166  oFAiLURE  ACKNOWLEDGE  SELECTI9N.    FRB*  El/160    55  391 

166    FITCH  ■  11  55  392 

C       uPDATt  FAILURE  TABLE  AND  t«FC<  ERH8R  R£TU«N  55  393 

CALL  «.FMT  55  39* 

IF  (FlRFL fNE.C I  G8  T9  1080  5b  395 

38  T8  1070  55  396 

C  55  397 

C  I*/168  ^FAILURE  REPAIR  SELECTIBN*  FRBM  E3/I6C    5b  398 

C       UPDATE  FAILURE  TABLE  AND  CHfCK  ERRBR  RETURN  55  399 

168    FITCH  •  12  55  »O0 

C*LL  *FMT  55  »01 

IF  (FlRFL'^E.C)  GB  T9  1080  55  *0? 

C  RESET  CBNTR8LLEH  kalFUNCTI9n  FLAG  55  *D3 

nCBDE  •  11  55  »0» 

CALL  I-SUB         <  55  *-i5 

GB  TB  1070  55  »06 

C  55  »07 

C  15/170  *A- PHASE  GREEN  SELECTIBN.  FRBM  E3/160    55  *08 

C  55  *09 

170    IF  (Ff,SCF.NE.  0)  GB  T9  1050  55  *10 

C  ••••    2-GC  CHANGE  55  '11 

IF(LEYl5A.NE.0I  G9  T8  1050  55  »!? 

C 55  *13 

■  MC9DE  •  12  5b  »1* 
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CALL    h-.SUB  55  MS 

C  55  »16 

C  TEST    f8R    EROB*    A-gj    *AIT    C3NI5ITI9NS  55  117 

IF(MTEST)H,8.,,171,  IC50  55  "18 

171  F-1CH.7  55  M9 
ICN.MBlTllI  55  420 
CALL  3lTBY(CYCLC. ICN. IP)  55  »21 
IC»«KCl(IP+1  )  55  <"? 
CALL  GET6Y[SSSS,4.ICm«3.ISUM  55  423 
ISPL'I IGATE^'lUTDl/l ICY-ISUM)  55  424 
CALL  P*** (SPLIT ,2* ION- 1» ISPL)  55  4?5 
CALL  "Til  mLOSPL.  ICN.l.O)  55  4?(, 

Srt  T8  1070  55  »27 

C  55  »2« 

C  16/172  .9FF-SET  SELECTION.  CR91  E3/163    55  »?9 

172  If  (Ff'SCF.NE.C)  38  TB  1550  55  430 
1C8DE  ■  13  55  "31 
CALL  cSuB  55  43? 

C  TtST  Few  t»R8R  AND  JAIT  C8N0ITI8NS  55  4i3 

IF  (.1TEST)  1353.  173.1 05;  55  »34 

1/3    F-'TC-i  •  8  55  435 

GB  T8  1070  55  4JA 

C  55  437 

L  t»/!75        .DETECTOR  REDUEiTa  rBR  TRAFrK  C8NTK9L.      FR9V'  Bl/102    55  438 

C  F3UR  0ETECT9R  RE3UESTS  38  Tfi  J1.J4  55  »39 

C  55  4»0 

1/5    IF(.|dlT(l)«3T.S'MVtO)  38  TB  1083  55  t»l 

riTTr  •  4  55  44? 

F-ITNu   »  M»IT(1 )  65  443 

C  BM  LINE  TB  Jl  55  444 

If  C,bIT(1C).E.S«0)  38  TB  17t  55  445 

C  STANDBY  TB  J?  55  446 

If  C1bIT( II I.E2.3)  39  T9  ]7j  55  »»7 

C  fAlLUHE  «EpAIR  TB  J4  55  *»« 

IF  CsIT(lS).EO«0)  38  TB  18?  55  4»9 

C  FalLUFiE  AeKN9*LED3£  T8  Jl  55  450 

!«  MuIT(l3).E3.0>  oB  TB  18-  55  451 

C  N8  SELECT^  ERR8R  55  15? 

G8  TB  10BJ  55  <t:>3 

C  Jl/176        . DETECTS")  BN  LIME  fPR  TRAFF|f  CBNTRtL.       FRB-l  E4/175    55  464 

C  55  455 

1/6    "CBDE  •  14  55  456 

CALL  r;SUB  55  457 

C  TfST  ERK8R  CBnOITIBk..  55  458 

C  REQUEST  VALID  BNLY  IF  DETECTS"  AMD  CB"^,  FLAGS  3BTP  8FF    55  »S)9 

IF  (XTLST.NE.O)  3B  T8  1080  55  »60 

c  set  Change  b>  line  and  gb  Te  update  Change  table  55  »m 

F"TCh   •  13  55  462 

GB  TB  1070  55  *63 

C  55  464 

C  Jg/176  •  UETECTBR  S\  STANDBY.  FR81  E4/175    55  »65 

178    FITCh  .  1  55  466 

ILBDE  ■  16  55  467 

CALL  nSjB  55  468 

38  T8  1073  55  469 

C  55  470 

C  J3/1SJ  •  FAILURE  aCkNBI-LEOUe  FBR  DETeCTSR.   FR8"I  E4/175    55  471 

C  VALID  9NLY  IF  FIRST  START  FL AG  IS  SET  55  *72 

1SJ    IF  (FSTFL.EQ.C)  36  TB  1080  55  473 

FH|Ch  .  11  55  »74 

C  UPDATE  FAILURE  TABLE  AND  CHfC<  ERRBfc  RETURN  55  475 

CALL  <FMT  55  476 

IF  (Fl«FL.NE.(.  )  GB  TB  1083  55  »77 

38  T8  1070  55  478 

C  55  479 

C  J4/i«a  .FAILURE  REPAIR.  FR8M  E4/175    55  »80 

1«2    F-TCh  •  12  5b  »81 

C  UPDATE  FAILURE  TABLE  AND  CHEC<  E"«8R  RETURN  55  48? 

CALL  *F*1T  55  483 

IF  (FlRFL.NE.C)  38  T8  1JSD  55  484 

1L8DE  •  lb  55  455 

CALL    l"iSUB  55  486 

GS  T9  1070  55  487 

C  f.5/185       ..TRAFP  IC  C8NTRBL  CB^MUN  ICAT  I8'-S  REQUESTS.*   fR6"1  Bl/102    55  »98 

C  ErfR9R  IF  DETECT9R  NUMBER  GT  NUMBER  OF  DETECT9RS  55  489 

105    IF  (MoIT(l) .GT.nmvED)  G9  78  1080  55  4?o 

Fr.TTY  .  5  55  491 

FMTNU  •  MSIT(l)  55  ">9? 

C  T»B  CBt-.MUNlCATIBNS  REQUESTS  G»  T9  Kl  AND  «2  *>c  443 

c  Failure  acknb-lTdTe  ts ""<r  *5  *9» 

IF  (1!iIT(l3).EQ.O)  3B  T3  187  *5  *95 

l  failure  repair  T9  <z  55  *96 

IF  (-oIT(l5).EQ.D!  39  TB  189  55  *97 

C  N^  SELECTION  ERRBR  55  ""B 

38  T9  lOSf;  55  499 

C  "-l/ls?   .FaLLUBE  AC<N9<LEDGE-C9fM.  TRAFFIC  CBNTR3L.       FRB'''  E5/185    55  5JT 

C  REQUEST  VALID  8NLY  IF  FIRST  START  FLAG  IS  SET  55  501 

1S7    [F  (FsTFL.t'i.O)  38  T8  1380  55  50? 

FITCh  .  11  55  503 

C  UPDATE  FAILURE  TABLE  AND  C"EC<  ERRBR  RrTJRN  55  504 

CALL  *FM  55  505 

IF  (FLRFL.NE.OI  G8  T8  10RO  *5  506 

G8  T9  1070  55  507 

C  K2/199   .FAILURE  REPAIR"C8"1«.  TRAFFIC  C8NTR6L*  FRB^  E5/U5    55  508 

189    FITCh  •  12  65  509 

C  UPDATE  FAILURE  TABLE  AND  CHECK  ER«BR  RETURN  55  510 

CALL  «.FHJ  55  511 

IF  (FlRFL-NE.O)  GB  T9  1080  55  512 

c  Clear  csmmunicatibns  on  and  failure  flag  55  sis 

1C8DE  •  17  55  514 

CALL  eSuB  55  515 

38  T8  1070  55  516 

C  B2/?r-j   ..CIC  SELECTED  "ITH  SYSTEM  CBNTR8L  ENTER..        FR8M  A3/101    55  517 

C  55  518 

C  THREE  CIC  CHBICES  G8  TB  Fl,  F2,  AND  F3  55  519 

c  system  tb  fi  55  520 
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200    IF  (MBITI3I .EU.O)  G9  T9  232  55  5?j 

C                                SECTIBN  Te  F2  S5  522 

If  (MSlT(»)tEUiO)  GO  T9  210  55  523 

C                                   C9NTRBLLER  TB  F3  55  52» 

If  (MoIT(5) .EQ.OI  59  T9  220  55  525 

C                                   NO  SELECTI9N  ERR9R  55  526 

58    T9    108;)  55  527 

C    ••1/2. .2    ••ClC    SYSTEMS    T*8    CM9Il.Es    59    T8    LI    AND    L2  FR9H    8?/l»0         55  528 

C  55  529 

C                                   ACTIVATE  T8  LI  55  53C 

202    If  (MoITMOl.EQO)  38  T9  20»  55  531 

C                                RFLEASE  Te  L2  55  532 

If  MsIT(ll).EOO)  59  T9  206  55  533 

C                                   N9  SELECTJBN  E"R9H  55  S3* 

59  IB  IC80  55  535 

C  Ll/2;»               .  ACTIVATE. CIC  SYSTEM  SELECTIBN.  FR9M  Fl/202    55  536 

C  SET  CIC  SELECTEO  FLAGS  F8R  ALL  CIC  CBNTR8LLrRS  IN  SYSTEM   55  537 

2->»    1C8DE  •  18  55  538 

C«LL  -1SU8  55  539 

Fi-TCi  ■  9  5b  5»0 

GB  TB  207  55  5*1 

C  L2/?_6               .  RELEASE.  ClC  SYSTEM  SELECTI9N.  FR8-I  Fl/202    55  6»? 

C  CLEAR  CIC  SELECTEC  FLAQS  FBR  ALL  CIC  CONTROLLERS  IN  SYSTEM  55  5»3 

2J6    -^CBUE  •  19  55  5** 

CALL  MSUB  55  5»5 

F-ITC1-1  •  lu  55  5«6 

Sj7            F-ifTY  •  1  55  5*7 

FITN'J  .0  55  518 

C               G8  T9  UPDATE  CHAN5E  TABLE  AND  EXIT  55  5»9 

1)9  TB  107o  55  550 

C  F2/21J               «CIC  SECTIBN  REQUEST,  f 59  -  B?/200    55  551 

C  ER«8R  IF  SECTIBN  NUMBER  GREATER  THAN  NUMBER  BF  SECTIBNS    55  552 

21'J    IF  lluITIl  I.GT.NMSCT)  39  TB  1080  55  553 

Fmtnu  •  lialT(l)  55  55* 

FMTTY  e  2  55  555 

C                CIC  SECTIe^S  TW9  CmBICES  Gft  T8  Ml  AND  h2  55  556 

C                                   ACTIVATE  79  Ml  55  557 

If  (MBIT(IO).EO'OI  J8  T8  212  55  558 

C                                   RELEASE*  TS  Kg  55  559 

IF  ('lblT(ll).E'J.OI  59  TB  21»  55  560 

C                                   *9  SELECTIBN  ERR8K  55  561 

58  T8  1080  55  562 

C  "1/212               -ACTIVATE  CIC  SECTI8N.  FRBM  F?/2i0    55  563 

C  55  66» 

212   FMJCm  ■  9  55  565 

C         SET  CIC  SELECTED  FLAGS  t 8r  ALL  CIC  C9NTR9LLERS  IN  SECTI9\  SN     55  5*6 

MC9DE  •  20  55  567 

G8  T8  215  55  568 

C  M2/2I»               •  RELEASE  CIC  SECTIBN  REQUEST  .  pR9*|  F?/210    55  669 

C  55  570 

21*   F"<TCN  •  K-  55  b7l 

C        CLEAk  CIC  SELECTED  FLAGS  FflR  ALL  CjC  C8NTR8LLF.RS  IN  SECTIBN  SN    55  57? 

-1CBDE  .  21  55  573 

215   CALL  eSUB  55  57* 

G9  TB  1070  55  575 

C  f3/22i               •  CIC  C9NTK8LLER  •  FRBM  82/200    S5  576 

C  ERH9R  If  CBNTRBLLER  NUMBER  IS  GT  NUMBER  8F  C9NTR8LLL"S     55  577 

22J    IF  C"cIT(l).GT.NMcTL)  59  T9  1380  55  579 

FMTNU  •  MBIT(l)  55  579 

FMTTY  .3  55  580 

C                T„8  CIC  CBNTRBLLER  REQUESTS  gB  T9  Nj  AND  N2  55  6S1 

C                                   ACTIVATE  TB  Nl  55  582 

If    (naIT(10)«E0>0)    j9   TB   22?  5b  583 

C                                                                                       RELEASE    TB    N?  55  58* 

IF    MoITlll  ).E0O>    39    T9    22*  S5  685 

C                                                                          Nb   SELECTS   E"«9R  55  586 

G9  TB  1080  ,         55  587 

C  M/222             "ACTIVATE  ClC  CBNTRBLLfR  REQUEST*  FRflM  Fj/220    55  58g 

C  55  589 

222  FmTCh  .  S  55  69c 
C       SET  CIC  SELECTED  FLAG  FBR  ClC  CBNTRBLLER  CN  65  591 

*CBOE  •  22  55  592 

223  CALL  i-SUB  55  593 
C                ER^BR  IF  CBMTR9LLER  CN  IS  NBT  A  CIC  CBNTRBLLFR  55  59* 

If  (M.TEST.ME.O)  38  TB  1080  5b  595 

C  55  696 

59  TB  107o  55  597 

C  N2/,?i,  FR8,-,  F3/2?o   .RELEASE  CIC  C8NTR9LLE-  REQUEST.  FRBM  F3/220    55  598 

C  55  599 

22*    FMTCrt  •  lo  55  600 

C            CLEAR  CIC  SELECTED  FLAQ  FBR  CIC  CBNTRBLLER  C*  55  611 

•1C8DE  •  23  55  602 

56  TB  ?23  55  633 

C  55  63* 

C  55  635 

C  Cl/3  ;             ...MAP  C9NTR9L  ENTER  SELECTED'"  FRBM  A         55  606 

C                    RETURN  FRBM  MSU1  *ITH  55  607 

C                    MBIT(5].MBIT(15).  55  608 

C  UNFACKE'J  BITS  b  -  15  9F  CPNIN  hBRD  1  ANO  MAP  READY  TjRNED  BN    55  609 

C  55  610 

C                A.fHASE  GREEN  55  611 

300    IF  MuIT(12|.ne.O)  GB  T9  J°l  55  6,? 

CNDIS  ■  0  5b  613 

SB  TB  3u2  55  61* 

C                C9NTRHLLER  DISPLAY  9FF  REUUEST  55  615 

3U1    IF  (MoIT(15).E0-0)  CNDIS  •  1  55  616 

C                SU*vEILLANCF  UISPLAv  BFF  REQUEST  J>5  617 

302    If  IM6ITdll.EC.OI  SRUIb  •  n  55  618 

C                TRAFFIC  CONTROL  TB  C2  55  619 

IF  (MdIT(5).EQ«0)  GO  TB  3J6  55  620 

C               CIC  REOUEST  55  621 

IF  I  1bIT(o).E».OI  GB  TB  30»  55  62? 

C              NH  SELECTIBN  TB  Ct»  TO  SChECOLE  J  AND  EXIT  55  623 

G8  T9  1095  55  62* 

C       CIC  CONTROLLER  DISPLAY  RESUEST  55  625 

C                     STATUS  55  626 
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30*     If  (MbIT(l31.E0i0)  CNDIS  •  «  S5  637 

C  G8  TB  SCHEDULE  J  AND  EXIT  56  628 

38  T8  1095  55  629 

C  C2/306  FRBK  C1/3C2  55  630 

C  .TRAFFIC  CBNTRBL  MAP  REQUE6T.  55  631 

C  EQUIPMENT  FAILED  55  632 

306    IF  IidITi 10i.EQ.0I  SRDIS  •  1  55  633 

C  CIO  STATUS  55  63» 

If  (mb1T(13).NE>0)  SB  T9  308  55  635 

CNDIS  •  2  55  636 

SB  TB  310  55  637 

C  FAILEU  55  63! 

308   I*  (MBITUM.EQOI  CNDIS  ■  3  55  639 

C  FLB«  OATA  55  6*0 

310    IF  (MdlT(B).NE.O)   39  TB  1095  55  6»1 

C  C»  55  6*2 

MC8DE  •  2*  55  6*3 

CALL  MSUB  55  6»» 

IF  (MTEST.NE.O)  38  T9  1095  55  6*5 

S*DIS  •  3  55  6*6 

88  T9  1095  55  6*7 

C  55  6»B 

C  STATUS  DISPLAY  ENTER  .  55  6*9 

C  RETURN  FRBrt  MSUB  «ITN  DISPLAY  READY  8N  55  650 

C  CPNIN  BITS  (g)  THRU  (15)  8F  »PRD  2  ARE  UNPACKED  AND  IN     55  651 

C  MBIT  (8)  THRU  (15)  55  65? 

Z  55  653 

C  GET  CRT  INDEX  55  65k 

«0J    IP  (MoIT(S) .NE.O)  U8  T8  401  55  655 

1  •  1  55  656 

S"  TB  *15  55  657 

C  DISPLAY  ERR9B/  NB  SELECTIBN  55  658 

•  01    IF  (MnIT(9>.NE.0>  G9  TB  106j  55  659 

1.2  55  640 

♦15    IF  (MnIT(l5>.SE>0>  GB  TB  »0S  55  661 

C  TRAFFIC  SYSTEM  INTERSECTION  55  66? 

C  «3IT(  7)  ■  CTLSYCJ8.)  BIT  55  643 

C  MBIT(16)  ■  INTERSECTION/CBNTRl'LLER  -UMBER  55  66* 

C  TEST  £RRB«  CBNOITIBv.  C8NTRBLLER  NUMBER  NBT  VALID  55  665 

IF  (MBlT(7)iEa.O)  GB  T8  106;  55  666 

IF  (MHTU61.UT.NMCTL)  08  Te  1060  55  667 

C  VALID  NUMBER  55  66g 

ITRNM,  J  1  .  M(tIT(16)  55  669 

C  SET  J  F9R  DISPLAY  C9D£  55  670 

J  .  5  55  6M 

08  TB  *0»  55  67? 

C  Ug/»  ,2  L8CATE  INDEX  F9R  DISPLAY  C90E  FR8M  A/«00     55  673 

»oa    D9  »yj  J«  1»«  55  67* 

<  ■  J  t  10  55  675 

IF  (MBIT(K) tEQ.O)  58  TO  »0»  5b  676 

*03    C»NT1,..UE  55  677 

C  DISPLAY  ERR9R<  NB  SELECTIBN  55  678 

SB  TB  1060  55  679 


C  SET  DISPLAY  CBOE 

♦Of     ICRTc I )  •  J 
C  Dll     TEST  IF  LAST  REQUEST  CA"E  M8R£  THAv  »  Sf.ceNDS  Aj9 

L  •  RTC  •  CRTLL 
C  6  SEC8N0S  SCALED  h5  ■  192 

C      RESCHEDULE  R9UTINE  X  USING  LPU'H  D9WN  CLBCx 
KCNT.l 

!F(L»LTtl92)  KCNT.6-L/32 
C     RESET  REQUEST  CL8CK 

•    C-UCL  •  RTL 
C  GBBO-bY 

as  TB  100.' 

c 

c  exits  frbm  routine  » 

c 

C   Y/1:  50  TURN  8N  «AIT 
1063  MC9DE  •  26 
09  TB  1JM 
C   Z/1^61  DISPLAY  ERRPR  CBNDITIBN 
106J  MC9DE  •  27 
i8  T9  1081 
C   XTa/1373  UPDATE  CHANGE  TABLE 
1070  CALL  HF^T 
S9  T9  1000 
C   CU/1095  ALL  MAP  CftNTRBLS  -  SCHEDULE  J 
109b  MAST  <J|>  AST)  •  1 
G9  TB  1300 
C   X/1^60  SYSTEM  ERROR  CtiN0lTI9N 
10SJ  MCDE  •  28 
1C41  CALL  -sua 
100J  RETURN 
END 


55 

610 

bs 

681 

65 

68? 

5b 

613 

55 

68k 

55 

615 

55 

616 

55 

6H7 

55 

618 

bb 

689 

5b 

690 

5b 

691 

55 

69? 

5b 

693 

55 

69* 

55 

695 

55 

696 

55 

697 

55 

698 

55 

699 

65 

700 

bb 

701 

55 

702 

65 

733 

bo 

70* 

55 

705 

b^ 

706 

5b 

707 

55 

708 

55 

739 

65 

710 

55 

711 
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2.  6.  52    SUBROUTINE  HFMT 


WUTJ^e: 


-1FMT 
SJBR9uTlJt    "»F,1T 

INTE^E*    FMTTY,F»TWjF»TCH»TI«E 
INIECjE"    Hr*ST 

IMEBE"       CT"Pr,Ti«\,TCHA  J,TE»IN 

3I"lENSIS'l    CTYPE(b),  IC-4M  131.1  mU"I(»),  I  TYPE  (  5  )  »  TO*  v(  1  3  >  »  T  I"IF  <  * 
1  .Txa'.|13) 

DIMENSION      LTAbL(220) 
C91M9  <    /dL<»    /       F1C  .       Fr<Ar(K  /       14STI9I 

•  -^iaST  ,       J"aST  ,       <"AST  ,      E^AST 

•  HiAST  /       W1AST  ,       QMAST  i        I1AST 

•  S"ACE  >       MP3KY  ,       QCNT 
CB'IMSn    /nA-)US/       F"«TTY                    ,       FHVU  ,       F*itCh 

.    ITR\l,-;,2) 

C9"'M8\/HSUB2/91>'.D,CTABL»  !  BL 

EJ'JlVA^E<CL(TC-AMd),TflAMl  )  | 

E5UIValENCE(IChani(1),TChak(1j) 

EjJIvAlE'.CEI  I  TYPE!  i  l.CTYPEU  I  ) 

■QU1vAlENCE1TEXIN»TKAN(13)) 

DATA    CTYPE/'SYS     '.'SEC    '.  'C8\T',  'DET     ','DC^1/ 

DATA    IlL' IBLNK.TCHAMU  I/O.  '  'j'SThV/ 

BAT  A     Tf;AN(l)»TKAN<g)»TMAN(3),TMAN(»),T"AN(b)«T1A\(6)j 
1  T^»<lo)iT(-»N(  j)»T-'AM(  13),  TMANI  11  I  .T  1A"  I  1?) 

g/'^AN    ',"T8L>    •,tT«SP'i,«8N    ', '"8FF-, iSpLT', 'PFST', 'CC 
3AC<'.  'r<EPR'*  "8NLNV 

DATA    TeXlN/'EXI*'/ 

SET     INDEX 

I     •    5«!BL 

SET    TIr.t    BF    Day 

CALL    TIlEMTIlfc) 

STORE    TI1E    IN    TAbLE 

CTABLd+1)    ■    TI"E(«) 

PICK  OP  TYPE  CBDE 

CTABLI 1*2)  ■  ITYPE(F*TTY) 

PICK    ut-    6I\a^y    SJIpfcR 

jE'    LAbT    T„8    BYTES    BF    cMA-tv    NUMBER 

*    ■    D 

CALL    haLF(F«TNU,2, IT-P) 

CALL    PTh|_F(K,2»  IT^P) 

C9NVF.RT  S^A»y  NuM'iER  TB  EBCDIC 

CALL  ElS^Tl*,  I'.UM) 

STBRE     >JiB£X    T.NTB    TAJLL 

CTABLI  I*j)     ■     I".u:1!2> 

PIC*.    JP    CHANGE    CBDE 

<    •    0 

CALL    NALF(F"iTC",2.ITi»P] 

CALL  PTHLF (*.2, IT1P] 

STBPE  L^ANjE  INTB  TAr-LE 

CTAfcLI  !♦♦]  ■  ICmA-jiK) 

SE'  PATTERN  *u~BER  IF  ChAM'jE  IS  MANUAL  PATTERN 

IFIT-1A  (D.E3.TCAMK))  oB  Tn  20 

SET  EaTEJSIB-j  if  Change  IS  "anual  EXTfvSI9n 

IF(TEXIN.£j»TC«AN(K) )  31*  TO  so 

INUf>(2>     •      IBLN* 

35  to  Oo 
2:  C9NTI  ,ofc 

uE'  PATTER\  MU"BER  PRO"1  JPPES  MALF  BF  F-.TCM 
CALL  nALFlfTCn,  1,  ITMP) 


33  TB  .0 
30  C9NTInuE 
C       (if.  T  PATTER'*  NUI"RE3  FR61  UPPtR  HALF  BF  F^TNO 
CALL  -tALF|FMTNu,  1,  ITKP] 
»:■  CSNTlNuE 
C      CHANCE  TB  EBCDIC  CBPE 
CALL  ElSRTl ITMP/ INb*) 
bi    CBMTI-^E 
C      STOfiE  IN  TABLE 

CTABLlI+b)  ■  I^U^HE) 
C      IMCPE^L^T  IBLITe  9B-AL=*  C^EC<  MAX  VALUE  9F 
IHL  •  IBL  +  1 
IF( IhL.LT. *»>  i9  T9  100 
C      TABLE  FULL,  SET  PRIM  BUT  FL*o 
I--P3K.Y  r  MPoXY  ♦  i 
KAST<h,-,AST)  ■  1 
100  CONTINUE 
-<ETu3n 
:  nJ 


31 

1 

31 

? 

31 

3 

31 

» 

31 

5 

31 

6 

I  ICHl 

31 

7 

31 

B 

31 

9 

, 

31 

10 

, 

31 

11 

, 

31 

12 

31 

13 

, 

31 

1* 

31 

15 

31 

16 

31 

17 

31 

19 

31 

19 

31 

2? 

31 

21 

31 

22 

(7). 

31 

23 

31 

2» 

■CCBF ', 

•F  31 

25 

31 

26 

31 

?7 

31 

2? 

31 

29 

31 

3D 

31 

31 

31 

32 

31 

33 

31 

3  A 

31 

35 

31 

36 

31 

37 

31 

3? 

31 

39 

31 

**0 

31 

"1 

31 

A? 

31 

A3 

31 

A<t 

31 

A5 

31 

»6 

31 

•  7 

31 

1»B 

31 

A9 

31 

53 

31 

11 

31 

5? 

31 

53 

31 

5a 

31 

35 

31 

56 

31 

b7 

31 

58 

31 

59 

il 

60 

31 

61 

31 

6? 

31 

63 

31 

6* 

31 

65 

31 

66 

31 

67 

31 

AS 

31 

69 

31 

70 

31 

71 

31 

'? 

31 

73 

31 

7* 

31 

;5 

31 

76 

31 

77 

31 

75 
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2.6.53    SUBROUTINE  KFMT 


MUTINU      KfMT 


c 

•    KFMT 

SJ«R9JTINE  «FMT 

1 
2 

3 

4 

c 
c 

FaIlURE  ACKN9WLED3E  /  FMuUHE  "EPaI"  R9ltine 

c 

CALLED  FN9M  RTNM 

s 

c 

l\rE0E"  ALA*'< 

6 
7 

INTEGER          FMTTY        ,   FMTNU 

l 

FmtCh 

8 

ISTfL-Ert  FL-i>-L,   FLTAB,   CPN9T.   CASEC,   SF.CFC 

,   L-WL 

,   SCDFC,      * 

9 

•         FTrt"D,   FTAB 

1C 

£ 

11 

C9""m8m  /maRUS/   FMTTY       ,   FMTNU 

I 

FMTCH 

1                           4 

12 

•  ITRNifJ; 

13 

CS^MBrj  /BLKiO/   CICSCH6!    »   C!CSY|«> 

t 

CTLSCtl 

A)     /           * 

14 

2  CTlSYCO.CNSECiSI  )/CNTZ\lU9uL*"<CN((,9l. 

15 

■  TIMChi*)     ,   ZSII32) 

16 

CSMMBN  /BL<13/   OWL1259I     .   DwLP(|7> 

t 

E90C 

1                            4 

17 

1  FTAB,  FTB.J.  M9EIFI69) 

IB 

CBMKB-.  /BL-U5/   CMSET        ,   HBUFL 

• 

IGPI 

1           4 

19 

•  MNuMF         ,   NBMCM         ,   NCWJJ 

j 

NChD2 

1           4 

20 

•  NCkRO         ,   NMANP         ,    NMCTL 

t 

NMLNK 

,           4 

21 

.  NiSCT        i       NMvEC        <   NPATB 

i 

npb» 

i                       4 

22 

•  NRESP        ,   NSTMj        ,   TBS1Z 

i 

TBYTE 

,                           4 

23 

.  cs                  ,os                  .     fs 

t 

NS 

1                           * 

24 

•  as       ,  rs       ,  ss 

i 

scs 

25 

C9-<I~9N  /BL<22/   CRTbl(512)   .   CRTb2(512) 

l 

CRTD; 

>           4 

26 

.  C-<TD2        ,   CRTFj        ,   CRTF2 

# 

FLRFL 

27 

C9">MB\  /SL«25/  AHCC(l3a)»  CMmaL<17>#  C«TAB(258)» 

28 

•  0TTAB(258l   '   0ISU7)      ,   DMAlF(i7) 

f 

DM9DE 

t                            4 

1    89 

»  FLTA4(800l   »   MRF          ,   MBOES 

i 

NAI 

i          4 

I    30 

•  \9FAL,  SBA*(69I«  SECFCI4).  SC3FCI4),  V8LH38I 

L    31 

CeMM8\/dLK29/AGR(14),PIA<6),RCl(2),HS9(14) 

AP8MK1.), 

CBMUjCPN8T»   4 

32 

•  MARR(si»0)    »   MMAP(2)      ,   JCNT 

l 

KCNT 

#         4 

L    33 

•  MNC15       i       "HSBF       ,   CL9CK 

$ 

W-INF 

#         4 

L    34 

.  MINCT        t       TABI3)       i       N9N9IR) 

1    35 

3ATA  ALARM/  16/ 

I    36 

IBYTE  •  NB^Ch/8 

L    37 

FLRfL  •  u 

t    38 

IF(NBFAL.Ett'C)  GO  T9  33 

I    39 

IF(N9FAL.LE'MNuMF)  SB  T8  10 

t     40 

IN'JEX  •  »>KNUMF«3 

I   M 

SB  TB  ?0 

I     42 

10  CS^TlNbE 

L    43 

IN3EX  ■  4.M9FAL.3 

I    44 

23  Ce^TIMbE 

45 

LAST  •  INDEX 

1    46 

c 

I    47 

c 

•TEST  [F  REPAIR  9R  ACKN9WLEDQE 

1    48 

c 

IFIFMTLH.E3-12)  G9  TB  60 
CALL  SRCFTl INDEX#IRTN) 

L    49 
I    50 
I    51 

c 

t    52 

c 

BRA»C-t  F9R  nbRmal  RETURN 

1    53 

c 

IF(  IRT*>EU.1 )  <i9  Tfl  »0 

1    54 
I    55 

c 

1    56 

c 

ERRBR  RETUR"> 

\         57 

c 

33  C9NTINUE 

L    58 
L    59 

95 


FL*FL    ■    1 
RETURN 
»0    C9MTI  tx.1 

C  SET    *CKNB«LEOSE    ■    YES    IS    TAIL    TABLE 

r 

INB    •    (INDEX-llkk    ♦    1 

CALL    PTav(FLTAd, INU,1) 
5:    CSNTP.uE 

C  TUR>     9FF     ALARM 

c 

CALL  PTB1  (C'NBT, ALARM, 0,0) 
C 

C         TURN  BFF  LIUHT 
C 
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LI.R1*  1                     ERR9R  IF  N8T 

ST. »«!".  mtest              SET  MTEST  N8N  7.ER8 

B  REST 

h32       L..R12  Ff-SCF 

ti'-ll  REST                RETURN  IF  FLAG  8» 

L«.Ri3  "ASK.Rb             SET  180E  Change  JES1RED  Flag 
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AI.R7  -1 
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LI, 13  * 

RECBRD  RELATIBNS  KITH  SuRR.  CBNTR9L  iE'S 

A       LB.o  SU*C8N,7 
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L".R7  KBIT  SN                                   6  626 

M.R7  -1  .  SET  CIC  SELECTED  FLA3S           6  657 

11,^7  NC«RQ  .   FfiR  ALL  CIC  C8NTR9LLERS         6  628 

LI.Rb  0  .   p  SECTI8N  SN                    6  6'9 

LI.Rl*  NC-RD  6  630 

L»,Rl3  LICSC#R7  6  631 

STS.R13  CICSF,R6  6  63? 

*I/R6  2  6  633 

AI.R7  1  6  (,3, 

BDR»«.1»  »•«  6  635 

B  REST  6  636 

6  637 

RES  0  RELEASE                             6  638 
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*I»R7  -1  6  6*0 

"I.»7  MC«RD  .  CLEAR  CIC  SELECTED  FlAUS         6  641 

LI.«6  0  .   FPR  ALL  CIC  C8NTR8LLERS         6  64? 

LI,Rl4  NCxRO  .   ]N  SECTI8N  SN                    6  6*3 

LI.R12  0  6  644 

L".R13  CICSC.R7  6  6*5 
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AI.R6  2  6  6»7 
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LI.R12  &  6  657 
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GBT  16»1  BCCUPANCY                           6  676 
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LI,R7  3  3  FBR  QUEUE                         6  686 

6  687 


B  C*A 


GBT        19»1  6  bSt 

BuEZ       »*3  *   689 
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6   713 


LI.R12     -1  -1  FBR  ERRBR  6   714 

ST.-.R12    MTEST  SET  "TEST  0  BR  .1  6   715 

B  REST  GB  T6  REST8RE  REUS  6   '16 


6   717 

6   718 


PBT        3  TURN  BN  SYSTEM  ERRBR  6   719 

72D 


RES        C  *   721 

PBT        b  TURN  8N  "AIT  6   72? 


723 
724 


PBT        4  TURN  BN  DISPLAY  ERRBR               6  725 

RES        C  RESTORE  REGS  AND  EXIT               6  726 

0  6  7?7 

SREGS  *  7!B 


6   729 
730 


TURN  BN  "SUB  ERRBR  FLAG  6   731 


6   73? 


STh,Rl 

MSER 

6 

733 

B 

west 

6 

73» 

• 

6 

735 

SREGS 

RES 

0 

6 

736 

DAT* 

0,00,0,0,0,00 

REGISTERS  0-7 

6 

737 

DATA 

0,0, CO, 0,0, 0<0 

REGISTERS  8-15 

6 

738 

ID 

"ES 

0 

6 

739 

b 

81 

TRAFFIC  RESPONSIVE. SYSTEM 

6 

7*0 

B 

e? 

TIME  8F  DAY 

6 

7*1 

B 

DEBUG 

MC8CE  «3  0P>!  1  r£D 

6 

7»2 

B 

o» 

STANDBY 

6 

7*3 

B 

Hl 

TRAFFIC  RESPONSIVE. SECTI8N 

6 

7»<i 

B 

«2 

TIME  3F  DAY 

6 

7»5 

B 

"3 

MANUAL  PATTERN 

6 

7»6 

B 

M<* 

STANDBY 

6 

7*7 

b 

11 

BN  L^E-C8NTR8LLER 

6 

7»8 

B 

12 

STANDBY 

6 

7»9 

b 

U 

FAILURE  REPAIR 

6 

750 

B 

1=5 

A  PHASE  GREEN 

6 

751 

B 

16 

BFF  SET 

6 

752 

B 

01 

BN  LINE  UETECT8R 

753 

B 

J? 

STANDBY 

75» 

B 

Jo 

FAILURE  REPAIR. OETECTBR 

755 

B 

«2 

FAILURE  REPAIR. CBMmuNICATIBNS 

756 

B 

tl 

ACTIVATE-CIC-SYSTEM 

757 

B 

L2 

RELEASE 

758 

B 

"1 

ACTIVATE'CIC-SECTIBN 

759 

b 

MJ 

RELEASE 

760 

B 

^1 

ACTIvATE'CIC-CONTRBLLER 

761 

B 

\2 

RELEASE 

762 

B 

C* 

763 

b 

DfBJG 

MC8DE  •  S»  8MITTED 

76» 

B 

Y 

TURN  8N  -AIT 

765 

B 

2 

DISPLAY  ERR8R 
SYSTEM  ERR8R 

766 

B 

X 

767 

• 

76S 

BMlil 

RES 

AI.R13 

8T»«"RJ3 

0 

-1 

6 

769 
770 
771 

SLS,R6 

•5 

INDEX  F8R  NBN. INTERLEAVES  (if'iu...v 

77? 

B 

»+5 

773 

BM.S8 

RES 

AI.R13 
ST»,R13 
SLS«H6 

0 

•  1 

6 
■5 

77» 
775 
776 
777 

SL3.H6 

1 

INDEX  F8R  INTERLEAVES  ARRAY 

778 

AND/R13 

•X'OOOOOOIF' 

88TAIN  BIT  MASK 

779 

ST-»R13 

7 

780 

L*,R13 

MASK.R7 

781 

B 

•  R8 

EXIT 

782 

•  cbnvert 

BCD  T8  BINARY  SUBR8UTINE 

783 

REFERENCED  BY 

78» 

BAl,«8 

CNV3    F8R  3-DIGIT 

CBNvERSIBN 

785 

BAL#R8 

CNV*    F8R  O-DIGIT 

CBNvERSI8N 

6 

786 

AT 

ENTfcY,  3  8R  It  INVERTED  BCP  DIGITS  ARE  IN  "12  (RIGHT  JJSTIFIEO) 

6 

797 

•       AT 

EXIT.  Rl2» 

BINARY  NUMBER 

6 

788 

Rl3 

IS  0ESTR8YED 

6 
6 

789 
79r> 

CNVJ 

RES 

0 

ENTRANCE  T8  CSNVFRT  3  DI 

GITS 

6 

791 

E8n»R12 

■X'OOCOOFFF' 

BBTAIN  3  BCD  DIGITS 

6 

792 

AnD«K12 

•X'OOOOOFFF' 

CLE  A» 

6 

793 

B 

6*3 

6 

79<t 

CNV» 

RES 

0 

ENTRANCE  FBR  »  DIGITS 

6 

795 

E8R/R12 

•X'OOOOFFFF' 

BBTAIN  k  BCD  DIGITS 

6 

796 

A\L»R12 

•X'OuOOFFFF' 

CLEAR 

6 

797 

SLS,R12 

4 

•  C8MPUTE  N.  10000N3 

6 

798 

LH,R13 

12 

•             ♦  100«N? 

6 

799 

"I»»11 

10 

•            ♦   10«N1 

6 

BOO 

ANu»R12 

•X'OOOOFFFFi 

•             ♦      N8 

6 

801 

SLS»R12 

1 

6 

802 

AH,R13 
MI.R13 

1? 
10 

6 

803 

6 

SO* 

A:JD»R12 

■X'OOOOFFFF " 

6 

805 

SLS,R12 

H 

6 

806 

An,R13 

12 

6 

807 

MI.R13 

13 

6 

808 

AN1.»R12 

•X'OOOOFFFF' 

6 

809 

SLS»R12 

•12 

6 

810 

A/./RU 

13 

6 

811 

b 

•  R8 

EXIT 

6 

6 

»12 
813 

'.      TIK£ 

subi<9utine 

-  RtFFRENCED  BY 

6 

81k 

BAi.»R8 

TIME 

6 
6 

815 
816 

*T  EXIT/ 

R12  .  HHMM  (EBCDIC) 

AND  R13  •  DESTRBYED 

6 
6 

817 

818 

TIME 

RES 

0 

6 

819 

C*Ll»S 

TIMFPT 

BBTAIN  RBM  TIME 

6 

820 

L*,R12 

TIMBuF 

HH»" 

6 

821 

L«,Rl3 

TIMBjF*! 

HHXMMXXX 

6 

822 

SLo»Ri2 

•8 

OMHXMMXX 

6 

823 

SLS/R12 

•8 

OOHHMMXX 

6 

821 

SLD,R12 

16 

HHplXXOO 

6 

825 

B 

•  R8 

EXIT 

6 

826 

TI"FPT 

PAuE 

X'10'«M<TIMBUr> 

FPt  FBR  RBM  TIME 

6 
6 

B27 
82S 

• 

L8CAL  VARIABLES 

6 

829 

PN 

DATA 

Tj 

PATTERN  NUMBER 

6 

830 

• 

•••  map 

TmREShBLD  VALUES 

6 

831 

ThRVAl 

RES 

0 

6 

832 

DATA, 2 

5>10«20»30»50«75»75 

,75,75,75 

ecc 

6 

833 

DATA, 2 

2on,300»»00'600,800 

,  1000,  1000'  1000, 1  000,  1  00,1 

VBL 

6 

831 

DATA, 2 

5, 10,15,20, 30»»0»»0«»0,'tO»'tO            SPD 

6 

•  35 

DATA.2 

3,  6<  9,  1 2,  12,  12M  2' 12,  12,12 

QUE 

6 

836 

DATA, 2 

3,6,9,12,12, 12, 12, 12,  12,  12 

STP 

6 

837 

DATA, 2 

End 

10»20»*0»60»8D«12U» 

120» 120< 120,120 

DEL 

6 
6 

838 
839 
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2.6.55    SUBROUTINE  MSUB2 


"SU3^ 


8  1 

DSl.CT  *  I 

R£S  »  h-.buf  «  J 

OAT*  j  CRTCL  8  » 

EMU  8  * 
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2.6.56    SUBROUTINE  SRC  FT 


rjjtIme:  srcft 

t    •    SRCFT 

SJ'^eoTJJE  SRCFTI  INDEX,  I  ^T  .) 

Sui»9:JT''E  T8  StA^CH  FBR  FAILURE  TABLE  ENTRY  TB  SE  JPOATFD 
r 

if  CALlI  'JG  ARGl-ENTS 

C  INJE*  •  ImDE*  8F  FAIL  TABLE  ENTBY 

C  I3TN   ■  0   E«ECUTE  NEXT  STATEMENT  AFTER  CALL  (FRtfB=  RETURN) 

C  ■  1   Ju'P  2  STATEMENTS  AFTER  C*LL  AmQ  0EG!N  EXECuTIBN 

C  FBR  NBRMAL  RETURN 

INTEGER  FLTAB 

INTEGER          F1TTY  ,   FMTNJ  »   F»1TCn 

C9"iMG-<  /HASUS/   FMTTY  ,   FMTNd  .   FlTO 

C'-imBn  /SL<25/  AHCCU38),  C-AKJ7),  C"TAB(25g>. 

•  0TTA6(258)   ,   OISI 17 )  ,   DMALF(17)    ,   DiBDE  » 

•  FLTASHOO)   ,   HRF  ,   MBDES  /   NAI           , 

•  N8FAL,  SBA*(69>*  SECFC(*)«  SCDFCCt).  V8LI138) 
1U  CBNTlNuE 

I  m.)  •  (  lNDfc.x-1  1.2  +  2 

CALL  HALF(FLTAt),  INU/MHB) 

!F(nU'1d.nE.F^TMU)  GB  T8  20 

INJ  .  I  INDEX. 1 )•*  ♦  a 

CALL  jETc)Y(FLTAB.  I\D.  ITYPE) 

IF( ITYPE.E.'FMTTY)  U8  TB  30 
2J  CBNTIMuE 

INDEX  •  INDEX  .  * 

IF( INDEX. GE'C)  GB  T8  10 
C 

C         SET  ERR8«  R£TUR\ 
C 

IRTN  .  o 

RETURN 
30  CBNTINuE 

C  SET    NJRI-JAL    RETURN 

C 

IRTN    .    1 

RETURN 

EN  J 


•2 

1 

»2 

2 

»2 

3 

«2 

A 

»2 

5 

»2 

6 

»2 

7 

»2 

S 

•  2 

9 

»2 

10 

»2 

11 

*2 

12 

•2 

13 

*2 

1» 

»2 

15 

»2 

16 

»2 

17 

»2 

18 

»2 

19 

»2 

?0 

»2 

21 

•  2 

2? 

»2 

?3 

»2 

2* 

»2 

25 

»2 

26 

»2 

27 

»2 

28 

»2 

29 

»2 

35 

"2 

31 

»2 

3? 

•2 

33 

"2 

34 

♦2 

35 

»2 

36 

»2 

37 

»2 

38 

»2 

39 

»2 

»0 
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2.6.57    ROUTINE  O 


RJJTInE!       RTNO 

z      •   «tnb 

Sj^RSutInE  «TN=     •       , 
C   ..  T*J  PjhP^SE  Vr    ROUTINE  9  IS  T9  SET  ».P«*SE  GREEN  I\DIC»TI9N  BITS 
C   ••  [N  THg  A9G  ARRAY,  AND  START  BF  A. PHASE  3REEN  BITS  IN  TMF  STiRTA 
C   *•  ARRAY,  P3R  EAC'<  C9\T,R9LLER> 
C   «*  jJJJO..  I\Q£X  INT5  BIT  IARRAY  SF  J4CH  «BRO, UNPACKS  8  BITS  AT  A  TIME. 

Ce^MSN  /BL~NVuAl  (  128)»GA2U2S) 

CS^Bn  /dYTL2/JCBN, JL2.KL2.  1  OECR.  *SL?  (  5  j) 

SIRENS  1 3  «  3A1(32)»STRTA(3£>»A9J(321 

C9""8N  /PC9"/  GAI.STRTA.A9G. I 

INTEGER  GAI.GA1.GA2..A8U.STRTA 

OATA  IaLTB/O/ 

IL2»G 

I"3 

DS  353  KL2.1.97.32 

I  «■  I  +1 
C       ••    uN^aCk    ABG.GAI.GA1, AND    GA2    BIT    ARRAYS 
c       ..    STARTING    AT    1.9. 17. 25. ETC. 
122    CALL    UlvPB 

33    3»0    JL2«1<32 

IL2»IL2*1 

c  ••  cec<  »hIch  alternate  buffer  in  use.  set  g*i  sr  g*?  tb  cshplement 

C   •*  9P  GAI, SINCE  MUX  SUPPLIES  UATA  IN  CBmPLEMENT  F8RM. 
IP( IALTB.Ei-ll  G8  TB  12* 
0*1  (IL2)"-G»KJL2)»1 
GB  TB  126 
12»  GA2(lLi )«-o»I( JL2)*1 
12b  STRTA(.jL2).0 
IR12«0 
IRlO'O 
C   •*  IS10«GA1.ANU.SA? 

IPIGAK  IL2)-EQM.AND.GA2(  IL2]  .EQ.l)  IR13.1 
C   ••  STKTA.iABG-EBR.IRlul-Af-D.IXlD 

IF( IRlO.EO.l.AND.ABGI JL2I.EQ.0)  STRTAt JL2I«1 
C   ••  A9U.CABG-ANU. (GA1.0R.GA2) I.BR.IR10) 

IP  (  (SAl  I  IL2).E0.1.6R.GA2(IL?).E0.1).AN0.ABG(  JL21.6.3.1  I  I R 1  ?» 1 
IF( IR12»EQil«OR.IRlO.EQ«l)  IPl2»l 
A9GC  JLi?)»IR12 
C   ••  PACK  STRTA  AND  ABG  BIT  ARRAYS 
310  CBNTINuE 
,   CALL  PCK8 
3VJ  CSNTI'NUE 
C   ••  SET  SkITCH  F9R  ALTERNATING  GA1  AND  Ua?  BUFFE*. 
IaLTB..IALTB*1 
RETURN 
ENU 


9 

1 

9 

? 

9 

3 

9 

•  » 

9 

5 

9 

6 

9 

7 

9 

8 

9 

9 

9 

10 

9 

11 

9 

12 

9 

13 

9 

1* 

9 

15 

9 

16 

9 

17 

9 

IS 

9 

19 

9 

20 

9 

21 

9 

22 

9 

23 

9 

24 

9 

25 

9 

26 

9 

27 

9 

28 

9 

29 

9 

30 

9 

31 

9 

32 

9 

33 

9 

3* 

9 

35 

9 

36 

9 

37 

9 

38 

9 

39 

9 

•0 

9 

"1 

9 

"2 

9 

»3 

9 

»» 

9 

»5 
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2.6.58     SUBROUTINE  PCKO 


«UTlvEi   PC<* 


PCK9 
SJ*R9ul 
C91K9N 

•  *LTC(l 
C9"ll  BM/ 

.  1»RR(B 
»  mncis 

•  ^INCT 
i.3JIV»L 
INTEGER 
DJ-iENS! 
C91M8N 
INTEGER 
CALL  Pi 
CALL  P«. 
RETURN 
EN'J 


I  JE  ►'CKB 

/BL<7  /ASG!(16)     »  INTHH3H   ,  INT2K31)   , 

7)<<3PH!(31)»STUPF»mOl(311 

8LK28/*jR(l»),PI»(6),BC(2)»HSS(lt)/»PBMl  ( 1» ) , CPN9U, CPN9T, 

♦  0)    /  H'1»P(ai     <  JCNT        i    KCNT        > 

»  xHssr     »  clsck     »  wHjsr     , 

,    TAB(3)      >  N9NBI8) 
ENCE  (STRTI,A8Gl<2>) 

A9ttI,G»II,STSTI 
9N  hat (3?)»STRTA(3SI»A8U( J?l 

/PCS"/  GAI.STRTA/A9G, I 

GAI»GA1.GA2»A8G»ST«T» 
BIT(STRT]»I   .STRTA) 
BIT<A9GJ,I   <A9G) 


1 

3 

« 
5 

6 

7 
8 
9 
10 
11 
1? 
13 
1* 
15 
16 
17 
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2.6.59    SUBROUTINE  UNPO 


SjflRSjTlME    '.APU 

;3^M8M    /HL<7    /#8UI(16)  »     INTHIUi,       ,     INT2K31)       . 

.    <CTC(  !7>,OPh1(J1)»STUPF»".CJL(31) 

ceiM9M/BLna»/*oR(i»),pi»(6i,BC«i2)»Hse(i'»)»»P8"ii  (1»),cpv.8u»cp>"9t, 

.    i»RH(o<0)  »    H1API2]  <    JCNT  »    KCMT  , 

•  1MC15  ,    ^MSof  t    CLBCK  (     fclMINF  , 

•  "U\CT  >    TAB(3>  j    N9NB(8) 
E3UIVA..E  «Ct    (G*II»AG«(8) 1/ |STRTI<ASSI(2) I 
I^TEtiEt-    »9GI.6»H,STRTI 

DfE^SlS  -i  bA!(3SliST»T4(3?)»A8li(3?) 

CS'WN    /PCS'1/  CiAI.STRTA,  A8i»  T 

IMECE,    iAI»(,Al,&A?/A9b.STHTA 
CALL    U-.BIT(JA!I.l       ,iAl) 

call  u^bitiaujI, i  ,Aeai 

RETURN 

E\a 


10 

1 

10 

2 

10 

3 

10 

A 

10 

s 

10 

6 

10 

7 

10 

a 

10 

9 

10 

10 

10 

11 

10 

1? 

10 

13 

10 

1» 

10 

15 

10 

16 

10 

17 
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2.6.60    ROUTINE  P 


■ITNP 

3JBRBUTIME  *TNP 

C9S'»8\  /Bl<6  /  F.1C         >  fMAR<       , 

HASTI9) 

l-'AST          ,  JKAST         |  KMAST         , 

EnAST 

H-iAST        i     »iJAST       <  3HAST       < 

IMAST 

SPACE             .  "P8KY 

CB^MHI^  /0L<7  /A»JI(l6)      <   IMTHK31)    , 

INT2H31) 

<CTC(  l7)#«i»B|  (3)  ),STuPF,-.UL  (31  ) 

CBIMBN  /oL*1»/  CLE'.Cj       «  CTLNU       , 

C'-LNG 

DUMY|         ,  DU1Y2, 

CNTLK372).  ENTFLI5).  «CL(l7><  KCTF(i7> 

<CSF(l7)»  NMVAII31I,  S«SKI(R)» 

V*IM(123>  i    LN<PT(6»! 

CS^S  J  /BL<17/  ADVmI(B)    »  CICBI(B)    . 

CAB6I (8) 

I«DPI(«)     i    C^Tl»(12*)  •  CNTMM       ' 

IL2 

INT"iI(31)    .    INTlI(31)   <  INTBI(32>   « 

KL1 

5r&TIi33).  TIIEI(JJ),  QvSKI(69) 

C3-110-.  /8L«1S/  CICTK8I    »  CTBDIIS) 

STBDI (8) 

C3Mi(62i    ,  CURBI(31)   >  CYCLI(31)   » 

EMM  (»96l 

LN6PH31)    <  GAAoKlStl  »  r,A»TI(31l   / 

SBWT1 (31  ) 

oi.ABI(12»)   ,  GKABH12*!  .  3UABK124I  , 

INTOI 1*96) 

.  SA8CI(12»)   »  TK1K31)    /kPK8I(31) 

C91M8N  /BL<13/  CC2U29).  D*A!L(69)j  D9F(17I< 
.  "I](3ll      <  RAJ6CI258)  «  RA*SP(25s)  «BTC  t 

.  TST«T(5l6) 
CBHM8  ./BITl2/6ITAR(6»0) 

DME^S  IB-J  aDvSH(3pi,aBo(32]/AP8(32I.AUT8F(32I,CICBP(3?I/ 
1CICEF( 32), ClCTF( 32) »CT8DF( 32), CMAlF< 32), CPABGl 32), fSTCF( 32), 
£H9LD(32),  IAUv/P(32),  INT1S( 32) ,SEMSK<3g) »SPLCh(32),STBYD(38) i 
3STXTA( j2),TXNSF  (32),CICSF(32> 

EQUIVALENCE 
l(A;Jv^M,iITA«(   ]I),(A8q   ,blTAR|  33))»(APB   ,BlTAR|  65)1/ 
SI AJT8F,8IT4H(  37))/ 

1  (CICBP,8ITA*( 129) ), (CICEF,BITA«(161 I  1/ (CICSF,B1TAR(193) ), 
1 |CICTF,31TA«(??5> ), (CTB3F,bITAH(2S7) I, I CMALF, Bl TAR ( 289 ) ), 
3(CPA8UjBlTAW(3ii)),(FSTCFjBlTA«(353)i»(HeLD  ,8ITAR,385]|, 
M  I«DVP,8lTAK(417)  ),  (  IMiS,3lTAR(»*91  )>  (SEMS«, Bl TAR ( »91  )  ), 
5<SPLCH,8ITAH(5l3) ), (S1HTA,olTAH(5*b) I, (STBYD,8ITAH[577I ], 
6(THNSF,aITAK(609>) 
C9HMBN  /8Y7La/ICBN, JL2»<L2< IDECR, WSL? ( S3  1 

I^TEQE"  ADvNH,A9o,aP8,AUTBF , ePSIF,BTR*F,CtCBP,CICEF,CICSF, 
1CICTF,lTBDF»ChALF,cPA8G,FSTlf,GAI,hSlD,SEhSK,SPLCH,STBYD, 
2STRTA,TRNSF 

INTEGE*  A*ePM/C8M=s)CNTLN,CYCLC/E.MlNT.l)AABC»GA.JTP,  3B„TP, 
luLABC,i,1ABC»LDSET<l5CIC-TJQaa,aORR,i3VBK,R«R,STBT1,SA3CTjTE«CT<  T1ME8, 
?T<~» V8l, V8T 

INTEGER  AMBI"IjCBNTI»CNTl.I,tVCLl/EMNI,GAABI»UA«TI<liBl,Tl»'jUAB!» 
iGLABI.u^ABI.QCIClfGtiCI.OaRSl.QvBKI.HRRIjSTBTI.SABCI.TrKCIjTIMEIj 
2TOI, rf8LI«VBTI 
I  VTEGE-<  CLENG,C\TDR,EmAST,ST'jPF,ENTFl 
n'EUE-,  CU«BF,ENBFF,VRlNT,»*<9F 

EQUIVALENCE  <wSl_2(  1  ),C6\TB),  (  wSL2  (  2  )  ,  INTR?  |  ,  (  „SL2  (  3  ) .  INTRH  )  , 
1  (*SL2(»)»  I*TSIL>»  (WSL2(5),  IM\«|j  (WSL2<6>,  INTBU), 
2l*SL2(7)»TIlEB), ( WSL2 (8 ) , I K9 | , ( wSL2 ( 9 ) , 1 R1C ) 
C   ..  The  PukPBSE  8F  THIS  R8UTINE  IS  T6  SCAN  T«E  CB"PLEHENT  IF 
C   ••  CBNTRBlLERS  »HICH  HAVE  BEEN  FLAGGED  AS  BUT  BF  SYNC  wiT-t  C8MPUTER 
C   ••  IF  BUT  BF  SYNC  BT  9N£  INTERVAL  A  C8RRECTI9N  IS  ATTEMPTED  BTHfRwISE  12 
C   ••  The  CBnTRBLLER  IS  o«BPPEO 

JL2.1 
C   ••  F8*M  At,U.A\J.CPA8G.AN0.H3LU.A'lO.SEMSk.   IF  EQUAL  TJ  ZE*B  N8THING 
C   ••  T9  DB.  9THE«»!SE  C8^TR8LLEfc|  IS  BUT  BF  SYNC 
33U  ►L?»JL<:*ICe,< 

in  (As0(  JL2)*CPABG(  jl2)  ).E!««1  •*N0iH8LB(JL2)»EQ-l'AND«SEMSKIJLB)i 
1EJ-1)  u»  T?  331 
uS  Tb  sb. 
331  IF  (CPABil JL?)tE0.1 I  GB  Te  »3o 

G8  TB  BBU 
38J  TI-EB.j 
I^TBu.  • 
Hi    CALL  PCKP1 
c   ..  „4ve  6  C8NT«3LLE«S  bEEN  PROCESSED 
33*  IF( JL2.LT. 32)  GB  T6  33b 

IF  (CLt-NG  ,'JT.  01   MAST(KMAST)  •  1 
RETUR.n 
335  CBMINuE 
jL2"JL2+1 
G8  TB  330 
»00  CALL  Ul.PPl 
C   ••  INCREMENT  TI"E8UT 
TI^EB«TI  1E8MDECR 
C   ••  CHECK  |F  TPF6UT  HAS  REACHED  ^    SEC8NDS. 
IF  (TIi-E8.L'.3)  GB  T9  332 
IF  (IMTBJ.NEtOI  GB  TB  610 
IF  (TI.E8.GT.6I  GB  T9  b20 
GB  T8  332 
520  TIHE8.U 
I\TBU«] 
lAJVPl jL2).1 
G8  TB  332 
610  C"1AlF(  jL2).1 
TRNSF(oL2)»0 
CALL  P<BYT(lll,KL2.0) 
CICSF(jL2)  ■  Ci 
CICEF( jL2)»0 
CICTF|uL2)  ■  0 
C   ••  SE'  ENTRY  FLAG  F8R  UPDATE  SUBR8UTINE 
ENIFLI 1  )«0 
HBLDI JL21.0 
C   ••  SET  C8.-TR8LLER  NUHbER  IN  FAILURE  TaBlF  AND  INCRE«EvT  CLENG 
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1 

12 

2 

12 

3 

12 

4 

12 

5 

12 

6 

12 

7 

12 

8 

12 

9 

12 

10 

12 

11 

12 

12 

12 

13 

12 

U 

12 

15 

12 

16 

12 

17 

12 

18 

12 

19 

12 

20 

12 

21 

12 

22 

12 

23 

12 

2* 

12 

25 

12 

26 

12 

27 

12 

28 

12 

29 

12 

30 

12 

31 

12 

32 

12 

33 

12 

3* 

12 

35 

12 

36 

12 

37 

12 

38 

12 

39 

12 

"0 

12 

"1 

12 

»2 

12 

»3 

12 

Oil 

12 

*5 

12 

06 

12 

«7 

12 

48 

12 

19 

12 

50 

12 

51 

12 

52 

12 

53 

12 

5* 

12 

55 

12 

56 

12 

57 

12 

58 

12 

59 

12 

60 

12 

61 

12 

6? 

12 

">3 

12 

6k 

12 

65 

12 

66 

12 

67 

12 

68 

12 

69 

12 

70 

12 

71 

12 

72 

12 

73 

12 

7» 

12 

75 

12 

76 
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77 

12 

78 

12 

79 

12 

80 

12 

81 

12 

82 

12 

83 

12 

84 

12 

85 

12 

86 

12 

87 

12 

88 

12 

89 

12 

90 

12 

91 

12 

92 

12 

93 

12 

9» 

12 

95 

12 

96 

12 

97 

12 

98 

12 

99 

110 


C9NTB.IC8N*JL2 

CLENG»CLENO*l 

CAUL    Pk*^    <C8NT1,CLENS»C8MB) 

Q8    T8    390 
•  •    U*pAC«    INTE«V2«  INTiUIL/INTEHvh 
850    C»LL    UNPP2 

IF    (INTR2>LE»nTNL>    i8    Te    "0 

&8    T8    350 
990    IP    (INTSH.UE.IMTNl.)    G8    T8    610 

ADVNHI JL2>»1 

&8    T8    333 

ENO 


12 

100 

12 

101 
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12 
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12 
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12 

107 

12 

108 

12 

109 

12 

110 

12 

111 

111 


2.6.61    SUBROUTINE  PC KP1 


r9utIne:     pc<bi 


•  "CKPl 

SUSRBUTI'mE   "CkP] 

C81M9N    /SL<W/    AOVvllS)  »    CICSK8)  .    C»BO!(3)  . 

•  I*DPI (8)  l    CNT0R<18»)     i    CNTNM  ,     IL?  , 

•  lNtMI(311  ,     JNTtlOl)       •     !NT8I(3£|       ,    KL1  » 
.    STBTI(32),     Tirn<32)<    gvf»<I<69> 

ISTEQEK    AM3Fl,l.9\TI»C,»Tl.I»i.YCUjE*'IM!,GAABl#lj»jTI#,)B,,TI#  3UAPI, 
lL.L«BI,o^Al!I»3ClCI,  J«3I.03HHI,QV8K!,«aRI,STBTl,SAoCI.TC.Ct.TT"EI« 
?TKlI,VSl.I.v9Tl  ' 

C91M8N    /3YTl?/1c8m» JL2'KL2« tDEC«» WSL? ( 50  I 

EiJJ  I  VALENCE    (*SL2(1  l.CONTS).  , wSL2(c).  I'lTR?),  (*SL2(3).  !^T-}W>, 
1  («SLeU)«INTML!»  (wsLE(S).  I^Tsii,  (WSL?(6),  iNTBUli 
B(«SL2(7|.T1"EB) 

I^TEGE*    CBvTd,T!.1E0 

CALL    P»3YT(TI>lt.I#KL2,TIiEB! 

CALL    PivdYTl  INT3NKL2*  INT8U) 

SETUHN 

ENJ 
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1 

15 

? 

15 

3 

15 

« 

15 

5 

15 

6 

15 

7 

IS 

a 

15 

9 

15 

1? 

15 

11 

15 

IS 

15 

13 

15 

I* 

15 

15 

15 

16 

15 

17 

15 

IB 
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2.6.62    SUBROUTINE  UN PP1 


ReuTI if:      u\p«i 


•         JNPPl 

SJ*R8UTI JE    UMPP] 

"">M8n    /BL<J7/    «0VM(8)  ,    riCBl(g)  .    C»98I(g)  , 

•  MCP!(8|  ,    CNTQRlU*)    ,    CNTNW  ,     jL? 

•  SrBT|l32),     t]mEI(3S)#    SVSKI(69)  '  " 

INJ|6EW    *f,»"U'-BNTI,CMTLI.L*CLI,ENINl.a*Al?I,C*<TI.J8,.T!      -MAPI 

CSPMBN    /9VT1.2/1CBM,  JL?.<L?.  IDE",  «SL?  (  50  ) 

ISTEIjE''  Ce>TB,'T!MEB 

C»LL  JParT(T[r,r|,KL2,TI^ES, 

CALL  UPdVT(I\T0I»KLS, INT8U) 
i\J 
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13 
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13 

1? 

13 

13 

13 

1* 

13 

15 

13 

16 

13 

17 

13 

It 

113 


2.6.63    SUBROUTINE  UN PP2 


ROUTINE  I      J^B2 


3jBK9uT!-E    J^Bf? 

CS>h9».    /Bl.<7    /*S3!(16)  i    IMTHjon 

•  <CTC(  i7)#*iPiI  (3i  uSTtPf  ,n;loi  ) 

:ev"'tfN  /oi<n/  ov-im      »  cicsksi 

•  !»0°!(8)     ,  C»T,>I12»|  «  C-.TS- 
1"-T'I<31)    »  !'-Twll31l   «  ISfSlljJi 


•  STbTli33),  Tl-flij?),  ;/9<lis9 

i  it  »b  i ,  ->r*e  i .  5c  i  c  1 1  :c  j  i . '-  j'-<  i ,  ivs<  i ,  hsk 

2T<"If*6tI»VBTl 
CS^HOs  /B*T|.2/lCe.l.Jl.2"<LS»l-)ECH/«SL?< 
EiJ!*»,_E-.CE  («SL2(i  )»CBNTBI»(«SL2(e).l 

1  1«SLJ(»).  1ST -.(.),  [oSLElSli  I  NTs-),  (.Sl?i 

?i»SLS(7i»Ti-rei 

C»I.L  JHirT(isT2|,i<L5,|\T^?i 
C»wL  Jr-B»t(  I\Tt!»i<u8l  ]ST\LI 
C»Ll     >HYT(lNT'<I,Kk.8,  JsT^M) 

ENJ 


.  C»S 

»  <L1 

j»»BI. 
I/STOT 

6I.INT 


21131) 


I.Sa-C 


,B-'I 
I.TE" 


«3'-»DI» 


l.S>L?(i 

5,1. 


1 
? 

3 

It 
5 

6 

7 

s 

9 

i: 
n 
:? 
n 
i» 
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2.6.64    ROUTINE  Q 


SJBH8UTI  ■it    «TN. 

IME&E 

<     »CM,0" 

AST.STBYO 

C9"W9\ 

/BL«6    / 

FmC 

FMARK 

1ASTO)               , 

.    1-iAST 

JiAST 

KMASr 

E^AST                    , 

»    -H1AST 

»1aSt 

QmAST 

IMAST 

•    SfACE 

MPbKY 

OLNT 

C9*'N9\ 

/«L<15/ 

CHSS.T 

HBUFL 

15PI                       / 

•     -IMulF 

NBMCH 

NCW22 

MC.D? 

•    \C„HO 

NMANP 

NiCTL 

\~1LN«                    > 

•    VSCT 

MfWED 

NPATB 

MP3»                       , 

.    \-<ESp 

VSTmj 

TySU 

tbyTe               , 

•  cs 

JS 

FS 

MS                                     1 

•    'JS 

ws 

SS 

scs 

C91M9N 

/BL<1«/ 

CICTFltSI 

CTBaFiSl 

STSYjim             , 

.    CBNTB 

62)          / 

C'JkBF(  31  1 

CYCldSl ) 

EMM(»96i      « 

•    E^9FF 

?1  ) 

Q33T(1Z*I 

SAWTP(31 ) 

5B.TPI31  )          , 

•    CiLABC 

12*  )       , 

C)3jti(  12») 

GUAHCM?*) 

INTDJ(»96)       t 

.    SSSS[ l2»)          , 

Tk-(31  1 

kRKSF(31 ) 

C91M9.-I 

/BI_<Lvb/ 

LEVL5A.SSTN5 

END5»E"05J»MI;i 

:T5»'1IMoF,PPT1ME 

I«T£GEr 

>    SRTN5/Em;55<E^D51»9HT 

ME/BPTIN 

;9"r-B\ 

/o2C",'JT/ 

«R*BFS(12»)» 

9(12*1/ !FA(3l 1 

EnTcyC(3ihSpl1 

1    CIjHP\(31) 

cg'iMB'-i 

/asoai/ 

IL)9<A 

\C"22., 

•INu"     CSMT 1     -     ? 

IF< 105 

^E.-n 

CALL    «T>Q1 

I39»N. 

!SS«NC*2a*l 

is  ce^Tiv 

■  E 

s-:t  sta 

J    F3*    ALL    CONTOBLLE^S 

3TSYJI 

R61.-1 

Hb.i^b-a 

If  1  1*6 

3E^'l    QB 

T9    10 

SrT    «ETJ>tN    ClBCk 

C9JM    G«EATEW 

THA.*    3    H'<UTj;S 

GCNTMB3 

E\U5»1 

-AST(Jf 

AST)«? 

SETURlJ 

EVJ 

23 

1 

23 

p 

23 

3 

23 

K 

23 

5 

23 

6 

23 

7 

23 

8 

23 

9 

23 

10 

23 

11 

23 

12 

23 

13 

23 

1» 

S3 

15 

23 

16 

23 

17 

23 

1? 

23 

19 

23 

*0 

23 

21 

23 

2? 

23 

23 

23 

2k 

23 

25 

23 

Sb 

23 

27 

23 

2"! 

23 

29 

23 

30 

23 

»1 

23 

32 

23 

33 

23 

31 

23 

35 

23 

36 

23 

37 

23 

38 

23 

39 

23 

»? 
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2.6.65    SUBROUTINE  Ql 


RjJTl  jC  i        RTN01 


*TNJ1 
SJiRBuTINE    XT\»1 
l^TtSEh    0r"8DE,i9DC^  TAB,FTb 


C^Mfi-l  /dL<13/ 

OL<?59> 

,   D-LP(17) 

l 

E8DC 

1  FTAB.  FTB.J, 

'BE  IF (69) 

C91Me.»  /BL*IS/ 

chset 

.   HBUFL 

l 

I3PI 

•  -1NUMF        , 

N9.1C" 

.   NCW22 

l 

NC.D? 

•  \L»RJ        , 

NHANP 

,   SMCTL 

# 

^V^L^< 

•  VSCT        » 

NIvED 

,   NPATB 

» 

NPS* 

.  NNESP        i 

NSTMl 

,   TBSIZ 

I 

TBYTE 

•  cs                  , 

DS 

•   FS 

1 

MS 

•  as                  i 

RS 

.   SS 

1 

scs 

CSirB.M  /tJLKS*/ 

AMIST(138)« 

C-OIS,  OCF, 

•  o»»                < 

FMTBO 

,   FSTFL 

f 

HLIDF 

•  HLIDT(96)    i 

NHOAY 

,   PRCBD 

1 

PTM745I 

•  S"TFL.  SP.DIS. 

TMRSH,  VMISTI138) 

CS^MBN  /BLK25/ 

AMCCI138). 

CnnAU(l7)<  cnAB(258!» 

•  DTTAB(25S)   , 

DISI17) 

.   DMAlF(17) 

1 

D18DE 

•  FLTA61800!  t 

HRF 

,   M8DES 

1 

NAI 

•    NBFAL,  SBA*(69)»  SECFCI4) 

i    SCDFCI4),  V8LI138 

) 

cb-^b^  /CBMJ/ 

.PBPT 

8PEN  ShuTBB.n  FILE 

I8PT.1  , 

CALL    CAL8P<I9PT,N9FAL,EB0C»NHDAY,FTAB.FTBk.D/LPBPTl 
SET    TABlE    INDEX    TB    1 
I*6»l 

J.l 

C*LL    MBVERCJ) 

SET  LB9P  C8UMT 

IR7.N1SCT 
30  CBNTlNbE 

CHECK  DS.SIBE.J  MBDE  FBR  ALL  SEeTIBNS,  TEST  IF  MANUAL 

CALL  iETBY(Ui9L)E<  IS7»  ITMP) 

IF( ITMP.NE.l )  U8  TB  40 

VES»  StT  T8  T8U 

IT1P.IT1P*1 

CALL  PTBY(  Jm8BE«  IP7<  IT~1P) 
40  CBnTIn^E 

IR7.IS7-1 

IF(  IR7.C-E.1)  GB  T8  30 

J"2 

CALL  ^BVER(J) 

SET  I8PT  F9«  WHITE  SHUTD8WN  FILE 

IJPT.2 

CALL    CaLBP( IBPT,N8FAL,E9DC,NHDAY,FTAB»FTBwD»LPtfPT) 

RETURN 

END 
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24 
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21 
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22 

24 
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25 
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26 
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28 
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29 
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30 
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31 
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32 
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33 
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34 
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35 

24 

36 

24 

37 
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2.6.66    SUBROUTINE  GALOP 


B^UTKE:       CAL8P«Ci.9SE»ERR8R*F«ACa3PEN 


•   • 

CALBP.CL8SE 

,ERR9w»FRAD.9PE 

3tf 

CAL8P 

OEF 

LL8SE 

DEF 

ERR9K 

DEF 

FRAD 

DEF 

BPEN 

"EF 

LPBUF 

REF 

9SETLP\ 

RES 

1 

1 

RES 

1 

OAT* 

C 

RES 

1 

Jl 

RES 

1 

DaTa 

3 

RES 

1 

J2 

RES 

1 

u»TA 

? 

RES 

1 

J3 

RES 

1 

DATA 

3 

RES 

1 

J» 

RES 

1 

Data 

0 

RES 

1 

j5 

RES 

1 

DATA 

0 

RES 

1 

J6 

RES 

1 

DATA 

0 

PT"P1 

RES      1 

CALBH 

RES 

0 

LI«5 

7 

BAl«6 

9SETUPN 

GE..i.a,2A 

1,1 

GE\»<S»2» 

l.Jl 

GE\iti2« 

1,J2 

GEN*8#2* 

1aj3 

GE  v»8.2» 

1a  J* 

GEm»8/2» 

1.J5 

GEN.8.2* 

1.  J6 

ST., 15    PT"P1 

L.,2 

•I 

MT«*-1 

2 

6EZ 

BPENi 

L«.  1 

•J6 

L*,2 

•Jl 

ST.. 2 

LPBUF.l 

M.l 

1 

L-.3 

•J2 

ST..3 

LPBUF a  1 

AJ,1 

1 

L**« 

•J3 

ST.*'. 

LPBJFil 

AI.l 

1 

L»a5 

•J* 

ST.  .5 

LPBUF.l 

*I»1 

1 

L«t« 

•JS 

ST. #6 

LPbUFAl 

CAL1.1 

.RTRAD 

OEXIT 

RES 

D 

CAlIaI 

CL9SE 

CAi.1,5 

RLSKJNG 

CAl1a9 

1 

ERX9R 

RES 

c 

CALL  2 

ERRFPT 

e 

UEXIT 

8PEN1 

RES 

0 

CAl1,1 

9PEN 

B         • 

PTMP1 

WRTRA[. 

S£na8a2» 

17.FRA0 

GEn»».*»» 

a!6»»   15»0'0<1 

Data 

ERR9R 

Data 

ERR9R 

DATA 

LPBUFa»«1800 

8PEN 

GEn.8.2* 

21.FRAD 

DATA 

0 

CL»SE 

GEn»8a2* 

21. FRAD 

DATA 

0 

ERKFPT 

BEN'S* 2* 

2.0 

GEN«8a2» 

8.16 

DATA 

"ESS 

RLS«|NG 

SEN* 8*8* 

XiOB'.O 

TEXT 

•KING   • 

MESS 

TExTC 

• I/B  ERR8R  8N 

FRAD 

RES 

0 

SEN» 8» 2* 

7a1 

SENa8a16a 

8   5,9.0 

DATA 

0,0,0 

TEXT 

•ENDDAY' 

END 

ST8Rf    I     INTB    REGISTER    2 

8PEN    SMjTD9k\    FILE 

NU"BfR   9F    SYSTEM   FAILURES 
ST9RE     INT8    BUFFER 
INCREMENT    BUFFER   CBunTER 
ENO    8F    DAY    CBUYT 
ST9RE    INT8    BUFFER 
INChE-XNT    BUFFER    C8UNTER 

nu1ber  9f  hblidays 
st8re  int8  buffer 
I\Crement  buffer  cbuvter 
failure  table  indices 
stbre  intb  buffer 
^crement  buffer  cbunte? 
failure  table  indices- 
stbre  intb  buffer 
urite  shutdbkn  file 


RELEASE  PR8URAM 
EXIT 


TYPE  BUT  RAD  ERRBR 
9PEN  SMUTD9I.N  FILE 


SHUTD9.N  FILE  (D»aENDDAY)I 


TEMP  FIX  (D3«8a  N8  d»>< 


3 

1 

3 

2 

3 

3 

3 

A 

3 

5 

3 
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3 

7 

3 

8 

3 

9 

3 

10 

3 

11 

3 

12 

3 

13 

3 

1» 

3 

15 

3 

16 

3 

17 

3 

18 

3 

19 

3 

20 

3 

21 

3 

22 

3 

23 

3 

2» 

3 

25 

3 

26 

3 

27 

3 

28 

3 

29 

3 

30 

3 

31 

3 

32 

3 

33 

3 

3<t 

3 

35 

3 

36 

3 

37 

3 

3R 

3 

39 

3 

»0 

3 

M 

3 

»2 

3 

»3 

3 

*» 

3 

»5 

3 

»6 

3 

»7 

3 

•  8 

3 

»9 

3 

50 

3 

51 

3 

5? 

3 

53 

3 

5* 

3 

55 

3 

56 

3 

57 

3 

58 

? 

59 

3 

60 

3 

61 

3 

62 

3 

63 

3 

6* 

3 

65 

3 

66 

3 

67 

3 

68 

3 

69 

3 

70 

3 

71 

3 

72 

3 

73 

3 

7» 

3 

75 

3 

76 

3 

77 

3 

78 

3 

79 

3 

80 

3 

Bl 

3 

82 

3 

93 

3 

8* 

3 

85 

3 

86 

3 

87 

3 

88 

3 

89 

3 

90 

3 

91 
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2.6.67    SUBROUTIN  E  MOVER 


R8uT 

c      *      -ibve* 

SjSRSjTINE    "iBvERIJ) 

I\TE0Eii    CTBUE.CICTF/CMMAL 

tS,DATE,DIS»OKALF,DM80E,0S, 

1       F  LTA„,FS.HLIUT,LPbJF,SEC*C,SCDFC/SS 

CB^hBN    /BLnIS/      ChsET 

,       HBUFl                    i        13PI 

•    -iNuHF                    ,       NB1CM 

,       NCW22                    ,       NCD2 

•    \CkR0                      >        NMANP 

,       NMCTL                    /       N1LN* 

•    \">SCT                    ,       NMVED 

NPATB                    i       NPB* 

•    \*ESP                    <       NST~1 

,       TBSU                    i       TBY7E 

•    CS                            ,       OS 

,       FS                            i       MS 

.    QS                            ,       KS 

,       Sii                            /       SCS 

CS^fieN    /BL<1S/       CICTF(s) 

,       CT80F(RI             /       STBV0I8I 

.    C8NTB(62)          ,       CUKBFl  31  ) 

,       CYCLC(31)          .       EMMI»»ftl 

•    ESBFFlSl)          /       ufi^T(124| 

j       GAwTPCH  )          ,       5B.TPI3I  ) 

•    3U*BC(121)       <       uGGCilia*) 

,       GUABC(l?»i       I        1NTDJ(<»96) 

.    SSSSl  l2»)          .       TKMOl  ) 

,       WKKBF|31) 

C91MBN    /oLi*2t/    AHISTI138) 

C\DIS#    DCF, 

•    O1*.,                          ,       F1TB3 

,       FSTFL                    ,       HL1DF 

•    -<LI0T(96)          ,       NHDAY 

,       PRCOJ                    ,       PTm(7i.5) 

•    5«TFLj    SROIS,     THRSH.     ^H1ST(13B) 

C9"IHBN    /t)L<25/    AHCCH38). 

L^-ALI l7),    C"TAB(258)/ 

•    DTTAB<258)       ,       LSI  S  (  l  7  ) 

,       DMALF(]7)          .       019DE 

•    FLTAS(a00)       ,       HRF 

,       PBP-ES                    ,       N»I 

.    -.BFAL,    SB«*(69)/    SEcFCC 

i    SCDFCI*),     V9L(138) 

t8">K8*-    /BL<26/    CATEO) 

,       P^V0(3)                  »       LPBuF,i80b) 

CB'ViBn    /C8U/    LPBPT 

EJUiVAuEMCL     (</LpBPll 

u9    T8     (10<30)jJ 

10    CBMISuE 

ICS.CS*1 

OB    15    I.IjICS 

S.S.I 

LPBUF<  I  >.CT8i)F(\> 

lb    CBNTI'uE 

a.ICS 

oe  25  i.i.n-s 

S..5.I 

L»*-fl 

!_pBuF(Ll.C|CTF(\> 

2b    C9NTINUE 

*.<»ICS 

u9    T8    l5o 

JO    C8MTI\lE 

I3S.0S*1 

38    35     I-l.IOS 

^•<*I 

LPBUFlLl.CI^ALI I ) 

3b    C8nti\lE 

«"«<-lCS 

08    *5    I  .1,  PJS 

L.K*I 

LPBUF(U).D1ALF( I ) 

♦  5    CeNTIrjuE 

K»<*IDS 

08    55    I  all  I  US 

L»K*1 

lP»UF(l)«DIS(  I) 

5b    CBNTINuE 

«..**IDS 

INS.NS.l 

09    65     [■HNS 

L«<*I 

lP1LF(l  I.Sit-FCC  I ; 

bz>    CBMTI-^E 

«C.<*I*S 

08    75    I'lins 

^•<*I 

LPBUF(L  ).SC')FC(  !  ) 

>i    C8-JTI  (uE 

K.K+1    IS 

LPbUF(»»l  ).l)16UE 

K.«  +  l 

08    99     I.UJ 

L«<*I 

LPBUF|lI»DATE(  I  1 

95    CONTINUE 

*«<*3 

08    105    I»l»96 

L»<+1 

lPBUF|i_|.FLTAB(  1  ) 

105    CSMlNuE 

k.<»9b 

IFS.FS.l 

09    115    I.l/IFS 

L«<*I 

LPBUF(L).hLIDT( 1 ) 

lib    CSNTI'iuE 

K.'+IFS 

ISO    CSSTlNoE 

RETuR'i 
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2.6.68    ROUTINE  R 


R3jtI>.e:     RTm* 


•         XTSR 

SJ-SRBuTl  ,£    «TNR 

CS^MBN   /dL<17/   A0V\I(8!         »    CICBK8)        .    C»9G!<8)        . 

•  I'DPIcS)  .    CNT3R(12»I    .    CNTSM  i    IL2  I 

•  !^TM<31I        »    IMLl(3l>      »    INTBM32)      .    <ll  • 
.    STBTI(3ai,    T|>iEIOt)<  J«W9KI|6«> 

:sil»\    /JL<13/    CC2I129W    Df»lLI69)»    r8F<l7)l 
.    "IKJi  I  ,    RA»9CI2»8)    <    RA.SPI25M    «9TC  > 

.    TSTRT<516> 
••    RATINE    »-'|TR*\SF»S'"»T(8n    FRB"    CBMPUTER    C8"»TR8L    TB    STANDS") 
C9"<H8N/fiITL2/BlTAR<6»0) 

Cl^E^SIB  J    AUVNH(32),A8i<32)»APBC32)#AuT9F(32)»ClCBPt3?>» 
1C!CEF(j2),CICTF<32),CTB0F(32|,C'ALF(32)«CPA9&<32>»FSTCF  (32  I. 
2h9LD(3?).IaJvp<32>» I »TlS ( 32 ) . SE-Stl 3? I .SPLC«I 32 ) .STBvOI 3> ) . 
3ST«T*( J2I.TNMSF (32)<CICSF<32| 

EOJIvalENCE 
It  AJvNh.BITa1*!       l)),(»8i       .BlTA-M     33)>»(AP9       .BITARi    61 1  I  • 
2(AJTBF,3ITaK<    97)), 

1  (CICBP.BITa*! 129) >» (CICEr. BITARI 161 1 ).  (C!CSF,8lTARtl93) ), 
]  (CICTF,8ITA-<(j£5)  ),  (CT8DF,BlTA-»<257)  I.  (C^AL*.  91  TAR  (  J«,q  |  )> 
3(CABU,8ITa«(321  I  >.  (FSTCF,dlTAR<353)  |, (-9L0  iBITAROgB  )  )  , 
Ml»DVP.aITA-<(«17)),  (|\TlS,alTA*(»«9>  )j  <SE-S«.BlTAB(»j|  )  >, 
SlS^uCh.aiTAXiSlS) ), (STRTA,BITAR(5»S) ), (ST8T3.BITA«,577) ), 
6<TRNSF,9ITAH(6j9l  ) 

C9~>Me  ,    /d»TL2/ICSM,Ju2.<l.?<  I?ECR»  »SL?<50  ) 

IsTEGE*    AD»~-i/A8lj,  aP9.au  rBf.9PSlP.8Tli  y.e,  CI  C6P.C  ICE  F.C1CSF. 
lCH-TF,CT8DF»CAi.F1CPA80.FSTCr,^AI,H9L5/SEMS<,SPLC^.STe»D. 
2STXTA.TB-.SF 

INTEGER    A"9>'M,C9NTtJ.C>.TL,N»CTeLC»E'<INT,,3AABl.;>A.TP,  jS.TP, 
lCiLABC.ulABCl.ObET.v.CICr,  J,3J.33HS.3v9«.cao,STfaTr.,s«aCT.TE.C'/'I-,E9, 
2TiO.V9l»v9T 

INTEGE*    A»"3"I,t8NTI.CNTLl,C;TCLl»E'»l-«I»S»»BI.iA»TI<o9,Tl,-,u»"I» 
1&l«BI,o1ABI»3CICI,  .lJIjQ3H>*I,0VB*I.HRRI.STbT|,SAbCI.'r.CI.'I^EI» 
2T<1I#V8LI»VBTI 

EQUIVALENCE    <ST9T*l.«SL2U  )  > 

08    83c    11*1/32 

KL8«ICBN»!I 

IF  (STbVDI  II  l.Erj.O)  GB  T9  SO. 

IF  (HUlOI II I.EJ.O)  GO  TB  800 

TRNSF< I I).D 

SPLCH< II).C 

CALL  UPBTT(STBT!.Kl2»STBT»I 

IF  (SToTl.jT.O)  G9  T8  630 

ST»T1»j 

JF  (STSTAdI  1.E2.1  )  STBTI.IDrC? 

G8  TB  790 
630  STHTm.sTBT-i*IDEC* 

IF  (STbTM.LT.J6)  GB  TB  790 

CALL  PK9YT  (KII.KLSiU) 

H9LDI I  I  1 «0 

CICEFC I Il.C 

ClCTFdll.C 
780  STBTMio 

STBYOl  I  I ) ao 
790  CALL  PkBTT(STBT!.<i_2.STBTM) 
S30  CBSTImlE 

RETURN 
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2.6.69    ROUTINE  S 


ROUTINES   RTNS 


•  RTNS 
SUSRBuTInE  *TNS 

•  THt  PuRP9SE  BF  THIS  RSuTINE  IS  Te  C9vPuTE  THE  REQUIRrO  paRa-ETERS 

•  TB  ALLBi  A  SM8BTH  TRANSITI9N  FRBr  BNf  AREA  PATTERN  T8  aN-JTheH 

c81m6m  /3l<7  /a80i  <  161    /  inthk31)  ,  int2k31)  , 

•  kctci 17),<3ph1 | 31 ).stupf»nql(31 ! 

c91m8n  /bl<1*/  cleng     »  otlng     ,  cm-lng     , 

•  oumyi      ,  ouiy2, 

•  cntlh372).  entfli51,  kclu7),  kctf(i7>. 

•  KCSF(l7l.    NmvAIOii,    S1SKII8). 

•  V*INI(123)       .    LM<PT(6»> 

C91M8N    /BLK17/    ADVNII8)  >    CICBI(fj)  ,     CAB6H8I 

•  I*DP| I  8)  ,    CNTDR(12»)     »    CNTNM  ,     IL2 
.    PT1I|3l)          ,     INTLllSl)       »     INT01  |32)       ,     KL1 

•  STBTI(32>.     TIMEII32I,    QV8KI(69> 
CB^MBN    /SLK18/    CICTKB)  «    CTBDII8)  ,     STBDI(R) 

.    C1NT1(62)  ,    CUR8I(31>       «    CYCLIOl)       .    ENIN!(»96| 

•  E^8Fl|3l)  ,    SAAbI(12«)     »    GAWTIOli       ,     Gtt»TI(3l) 

•  GLABIll2»>   ,  GMABK12*)  «  GUABI(12»)  »  INTDI(»96) 
.  SAH.CI<12*I   «  TK1II31)    #hUK8I(3l) 

C8H8N  /BL«19/  CC2I129),  DFA[L(69),  D9F(17)# 

•  111(311      I    RAWBC(?58)  ,  RA*SP(25fe)  ,BTC 
.  TSTRT(516) 

C91M8N/BITL2/BITAR(6»0) 

3  PENS  IBM  A<JvNH(32),aBG02>»aP8(32),aUT8F(3?)»C!CBP(3?i# 
1CICEF(32>  jClCTK(32)»CT90F(32),cnAUF(3?l,CP»8G(3SI,FSTCPn2l. 
SHeLD(32)/ IAUvp(32),INTlS(32),SEMS<(3p),SpLCH(3a)#STByD(3a)j 
3STRTA(32),THNSF(32),CICSF(32| 

EQUIVALENCE 
1 (AOvNH,bITaH|   1)),(ABg   ,BlTAR(  331). (AP9   ,9lTAR(  651). 
2(AUT8F,BITAW(  97)). 

1(CICBP,BITAK<129)), ( CI  CEP. BI TAR (161) I.  I C1CSF, BITAR { 1 93 ) ) , 
KCICTF.BITA*  (225)1,  (CT80F,BITAH(257)  ),  { CMALF, BI TAR ( 289  I  I, 
3(CPA8G.alTAR(32l ) ), (fSTCf, BI TA« ( 353 ) ). (H8LD  ,BITAR(385) ). 
»(  IA0VP.BITARHH7)),  (  I  NT  jS,  8 1  TAR  (4*9)  ,  ,  (  SElSK,  BI  TAR  ( If  81  )  ), 
5(SPLCH,BITA«(513) )» I STRTA, 8  I TAR( 5*5  I  ), ( STBYD, BI TAR ( 577 1 1 , 
6|TRNSF.8ITAK<609)1 
C81MBN  /BYTL2/ICBN, JL2.KL2,  IDECR, *SL2 ( 50 1 
C91M8N  /G2CBNT/  *RK8FS(12»)» 19(12*1, IEA ( 3i > « ENTCYC < 3l I 
INTEGER  A0vNH,A9G,APB,AUTBF,aPSIF,BTRNF,CICBP,CICEF,CICSF, 
lCICTF,CT9DF,CMALF,CPA8G,FSTCF,GAI#H9L0,SE1SK(SPLCH,STBr0, 
2STRTA,7RNSF 

INTEGER  AfePN#C8NT3,CNTLN,LYCLC,ENINT,GAABC,GA»TP,aBwTP, 
lGL«BC,(jWABC,LDSET,JCICT,:jQlJ,QQRR/QVBK,RRR,ST6T'1,SABCT,TE..CT,TPE8, 
2T<1, VBliVBT 

INTEGER  AM8"I,C8NTI,CNTLl,CTCLl,ENINI,GAABI,OA*TI,GB»Tl,GUAPI, 
1&lABI,G1ABI»QCICI,30QI,QQRRI,QV8K;[,RRRI,STBTI,SABCI.TF>CI»TIME[, 
2TK1I.V8LI, vBTI 
INTEGEn  -RkBI,EN8FI,CU«8I,«RIM 
INTEGES  CLENG,CNTDR,E1AST,STUPF,ENTFL 
INTEGER  CUR9F,EN9FF,VRINT,"R<6F 
DPENSI8N  GAABC(<t),GMABC(<t>»SABCT(<») 
EQUIVALENCE  (.Sl2(9),CTClC), I WSL2 ( 10  I , GAABC ( 1 1 1. 
l(«SL2(i*),GiABC(l)l,(»SL2(18).K3PHl,  ,i>SL2  ( 19  )  ,  NMvAR  )  , 
2(*'SL2(20)«SABCT(1  1  1,  ( *SL2 < 2» > , TKM ) 

EQUIVALENCE  (k,SL2(30),ENINT,lNT0U),  USL2131  1,  IH6I,  ( *JSL2  (  32  ) .  VAK01 . 
1 ("SL2I33I, VARl ), (WSL2(3»I,VAR2), (WSL2I35), I R15 I , (KSL2 (36 1 , IC8NS), 
U  "SJ-2137  1  ,  I H7  1,  (WSL2I38),  IWl>)t.(  wSL2jJ91,JR13  1  .  <  t>SL2  I  40  I  ,  I R5  1  « 
3(»SL2(»l),I*<12),(WSL2(»2)iIRll)/(WSL?(43),ENeFF),(»SL?(*»), 
4VRINT) 
INTEGER  VAR0,VAPl,vAR2 
INTEGE^  «R<F,E'«8F 
INTEGEf-   VRNT1.VRNT2.VRNT3 
CALL  U'.PS 
IRS.16.(<L2*ll*l 
jU»««k1_2-3 

CALL  Ul-BTT(VRI\I,  JJ.VRNT1  1 
CALL  uPBrT(V«I\J,  J„<n,VRNT2) 
CALL  LP3VT(VRI\I,jj«2,vRNT3) 
VAR0«Ik6»VRNTl 
VAR1.IK6.VRNT2 
VA«2»IR6«VRNT3 
>•  C81PUTE  DELTA  8FFSET.THE  DIFFERENCE  BET«EEN  THE  PRESENT  8FFSET 
>•  AN3  THE  DESIREU  8FFSET 
IR15«En9FF.*ctC(CyclC1 
'•  IF  THIS  IS  UREATER  THAN  .3  ADD  IN  CYCLE  LENGTH 

IFURib.LT.-6)  IR1S«1R15«KCL(CYCLC> 
'•  GET16  ENTRY  DURATIBN  VALUES  AND  ST9BE  IN  I.8RKING  Asoav 
CALL  KBVTS(EMNI,INTDI»!R6«16> 
CALL  UPBYT(ENTCYC,HL2,ICY) 
CALL  PkBYT(CYCLI,i<l2,  ICY) 
>•  TEST  ABSBLuTE  DELTA  8FFSET  T9  CH£C«  IF  GREATER  Than  3  SEC9NDS 
'•  IF  NBT  N9  TRANSITI8NAL  CYCLES  -ILL  Be  "ECUIRED 

IF(IABS(IR15).LE.6)  G9  T9  1803 
'•  TEST  DELTA  OFFSET  AGAINST  Ts-ilIMW  CYCLE  LENGTH, 

IF( IR15.GT.TKM)  68  T9  1110 
>•  N9,  N9T  JREATEH,  AOD  IN  CYCLE  LENGTH  T«  DELTA  BFFSET 

IR15oIR15*<CL(CYdLC) 
>•  TEST  IF  DELTA. BFFSET»KCL  >  2.T<M 

IF  (IRl5.LE'2»TKM)  G8  T8  111} 
••  IF  SB,  HALVE  DELTA. BFFSET&KCL 

IR15«IK15/2 
>•  SET  2  IN  IRJl,  AND  ST8RE  IN  Mj 
IR1*»2 
G8  TB  1160 
'•  IF  NBT,  SET  1  IN  rftl»  AND  ST8RE  IN  H[ 
0  IRUal 


11 
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1« 
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31 
32 
33 
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35 
36 
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39 
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C   ••  AFTER  SETTING  MI  T8  PREDETERMINED  VAllE#  DETERMINE  STARTING  INUEX 
C   ••  If  3  PHASE  CBNTRBLLER  SET  STARTING  IsoE<  T8  3|  PTheR.ISE  Se t 

c    •*  starting  index  tb  a 

1163  CBNTINuE 

CALL  PK8YT("II/KLS,IR1») 

ms.2 

IT  (KSPH.NE'l)  GB  TB  1233 

IR13.3 
1230  IR7.JJ  «IRl3 
C   ••  If  IRIS  OREATE*  THAN  9R  .  T8  THE  NuMre"  BE  ADJUSTABLE  INTERVALS 
C   ••  TEST  IF  END-  IF  YES  GET  BUT  BE  LB9P 
C   ••  SET  MINIMUM  ALLBiABLE  DURATIONS  F8R  a,B,  8"  C  PHASE  GREEN  SUSPECT 

1250  IF  ( IR13.GE-NMVAR)  G8  TB  1350 
C   ••  IVELY  INT9  INTDU- 

INTDU.uMABCI IR13) 

CALL  UPBYTi VRINJ, IR7.VRINT) 

IRS»IRo*VRINr 

CALL  PkBYT( InTuI, IR5» INTDU) 

IR7.IR7«1 

IR13»IR13*1 

G8  TB  1250 
C   ••  CHECK  IF  TYfE  OF  CBNTRBLLE^IK-jPH)  JS  TYPE  B<N8N  SvEKLAPPtNG 
C   ••  MBVEME^TS.   IF  YES.  GB  TB  3    PHASE  L8RP 

1353  IF  (K3PH.Efl'l)  GB  TB  1900 
C   ••  IR15.D6FF.SABCT 

IR15«Ik15.SA8CTC.) 
C   ••  SAVE  IR15  F8R  LATER 

IP12.lf.15 
1»JC  CALL  JFBYT(ENINI,VARl»ENINT) 

I'15«Ihl5»(SABCT(2l»ENINT) 

IR15.I  IR15/liAABC(l>*2«l>/H 

IF( IR15.LE.UMABCI2I I    GB    TB    2l80 

IR12.IhlJ-IH15 

IF(  IR1J  •LE.'JMABCd  )  I    GB    TB    237C 

INTDu.ISl5-SABCT(2) 

CALL  P«.BYT<  INTD|»VARi#INTOu) 

INTDU. IR12-SABCTI1  ) 

CALL  P«.BYT(  INTDI.VARo.  INTDU) 

GB  TB  ^^^0 
C   *•  Slt  «8R*ING  BFfSET  ESUAL  T3  ENTRY  8FFSET 
1S0U  CBNTINuE 

CALL  PnBYT(»RKBI.KL2.ENBFF> 
C   ••  ST9RE  FIRST  INTERVAL  DURAT18\  5  D8FF  IN  COUNTDOWN  REGISTE" 

CALL  uPBYTI INTOI, IR6,  INTDU) 

CNTDR(*L2)«IR15»INTD3 
C   ••  iE'B  BlT  Mjj  THE  NU"8E«  9F  TRANSITI8\  CYCLES  9EMAlNlNG 

CALL  P*8YT(MI I.KL2.0) 
C   ••  EXIT  T6  RBjTInE  T 

RETURN 
1900  IR15-Ik15-SAHCT|M 

IR12-IR15 

CALL  UPBYT(ENINI,vaR2.ENINT) 

IR15«(SABCT(3)+EN!NT)/aAABC(3)»2«IRlB 

IR15X lR15.fl 1/2 

IF( IR1S.3T.UMABCI3) I    GB    T8    2513 

IR15»Gf,A9C!3) 

IVTDU.H15-SABCTO) 
2100    IR.12.IR12.IK15 

CALL    PuBYTl INTDI.VAR2, INTDU) 

IR15.IK12 

GB  TB  1*30 
2180  INTDU.IR12-SABCT(1 )-GMABC(2) 

CALL  PnBYT( INTDI.VARo. INTD3) 
2273  INTDU. G~1ABC<2)-SABCT(2) 

CALL  °«.BYT(  INTDI»  VAR1»  INTDU) 
2320  CALL  UPBYT(INTDI, IR6, INTDU) 

C\TCR(»L2). INTDU 

RETuR'. 
2J70  INTDU.„MABC(1 )-SA9CT(l ) 

CALL  P,«.BYT( 1NTOI.VAR0. INTDU) 

IU12.IR12+IH15 

INTD3.IR12.SabCT(2i-GMAbC(1 I 

CALL  Pk.BYT(INTDI.VARi,  INTDU) 

GB  TB  r320 
2510  IRll.IR12"j1ABC(2).aMASC(l) 

IF  1 IR]5.8E« IR11)  GB  TB  2630 

GB  TB  2100 
2630  INTDU. GMABC(l)-SABCTll I 

CALL  P».BYT(  INTDI.VARO.INTDU) 

INTDU.IR12.GMABC(D-SABCT(3).GMABC(2l 

CALL  PK.BYTllNT01.VARl,  INTDU) 

G8  TB  2270 

END 
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2.6.70    SUBROUTINE  MBYTS 


C    •    "18YTS 

SJ3R8UTINE  ""BYTSIA/B,  I»N) 
C 

C  THIS  RHuTINE  levES  N  BYTES 

C  ST»KTIN(i  »T  BYTE  I  BF  » 

C  3BINQ  T6  BYTE  |  JF  B 

C 

IMTE6EK  A.B 
S  L»«3  «I 
S         Al/3    -1 

39  10  J'l.N 
S         LB,S    «*/3 
S         STB. 5   «»/3 
S         AI.j    1 
S         AI.4    1 
1J  CB^TINuE 

RETURN 

EMU 
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2.6.71    SUBROUTINE  UN  PS 


RSUTlNit:       USPS 


•    UNPS 

SUSHBuTlNE  U^Pi 

CB1M8N  /ait'    /ABUK16I     i    INTHJOii   ,  I*T2I(31)   « 

•  KCTCI  17),K3PHI  (31)<STUPP.i.Ql(31) 

Ce-'MSN    /BL<1*/    CLE\G  <    DTLM)  «    C^G  • 

•  OJ^Yl  i    DIMY2, 

•  C*<TL!(372>>    E"»TFL(5)/    KCLtl7>«    KCTF(17)j 
.    *CSf(l7),    NlVAI(31)»    SMSKl(B). 

•  V"INI(123)       i    LM<PT(t,«) 

CB^MBN    /BL<18/    CICTK8)  »    CTBDIlg)  t    STBUI(g)  i 

•  C9NTK62)         .    CURSIlSl)       »    CYCLK31I       <    EMMU96I    » 

•  E»Sri(3l)  ,    GAABl(12»)    i     3A-TH31I       »    G6WTK31)       » 

•  GLABIH2K)       ,    GMAell!12»>    i    GUABK12*)     .     INTDI<»96>     » 

•  S»BCI(12t)       ,    T<1!(31!  .h3K81(3i) 

IMEGES    A>-8PI,C8NT!»CNTU,CYCLl»E'''I^I»3AABI»GA.Tl,  jB.YI,  30ABI. 
HiLABl.b^ABI.aCKI/^aal/U'JHKl.QVBKI.WRqi.STHTI.SAbCI.Tr-CI.TI-EI. 
8TK1I.  vt)LI«V8TI 

IMTEGEK    Efv'BF! 

CB^MBN    /BYTL2/IC8\I.JL2»KL2«  IDECS,  *S>L?  (50 ) 

INTEGEt-     CUWT.EMBFF/ vRINT,<.KKBF 

DI-E'^SISs    jAABC(»),GlABCHil»SABCT(it) 

E3JIVA,_E\CE     («bL2(9)»CYCLC!< (  *SL2 ( 10  I « 0*ABC ( II )« 
1<«SL2<1*),5*ABC(1)  U  (WSL2[1»)»«3PH)»  (  wSl2  [H  I  »  N-VAR  ) , 
2l*SL2(20)»SABCT(l)  )»(»SL2(2»)»T<M),  ( I.SL2  (  »3  I  .ENBFF  ) 

l^TEGEt-    GAABC»l>"ABC»SABCT,t»CLC»TKl 

1.1.KL2-3 

09    10    J«l»* 

CALL  UPBTTlGAABI. I/GAABCI J) ) 

CALL  UPBYT(G1AB!»  I,i~IAbC(  J)  ) 

CALL    UP3YT(SABC!» I.SABCTl Jl) 
J    I»I»1 

CALL    uPBYT(LYCL!»KL2»CYClC) 

CYCLC«CYCLC*l 

CALL    UPBYT(K3P"]»Kl2»K3Ph| 

CALL    UPBYT(NMVAI»KL£.NVWAR) 

CALL  UPBYT(TKM1,«L2*TKM) 

CALL  UPBYT(E»»6FI#KL2.ENBFF) 

RETURN 
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2.6/72    ROUTINE  T 


RBUTlNE!       RTNT 

C    •    "TNT 

SJBRBuTHE  HTM 
C   ••  THC  P«l-URY  PU*PBSE  er  THIS  RBUTINe  IS  T8  ESTABLISH  AND  !1P«S£ 
C   ••  THE  NECESSARY  TRANSITI8N  CYCLES  T8  TRANSFBR")  A  CBNTRBLLE"!  FC8M 
C   ••  STANDBY  T8  COMPUTES  C9NT«BL«THEN  T9  STEP  THESE  C8NTR9LLER  ThrBUGM 
C   ••  THEIR  INTERVALS  WITHIN  A  COMPLETE  CYCLE. 

C8HM9S.  /BL«7  /A8GI(le)     »  INTHIOl)   ,  JMT2I  ( 31  >   . 

•  KCTCI l7),KJPHl (3J >»STuPF,NQL(31) 

ceHne-j  /bl*i»/  cleng     .  dtlno     .  clng     , 

•  DJMYj  ,    DUF1Y2. 

•  CNTLK372)'    E'<TFL(5),    KCLU7),    KCTF(17), 

•  KCSFI17),     N1WAI(31),     ShSkIIR), 

•  V*IM  (  1231       »    LN<PT<&*> 

C5HM9S    /5LK17/    ADVNl(S)  /    CICBK&)  ,  CA9l>!<8)  , 

-»    McPIiS)  ,    C^TD»(124)    »    CNTNM  ,  IL2  » 

•  PTMIiSl)  ,     INTlIOI)       »     INTBK32)  i  KL1  , 

•  STBTI(32),    TIHEK32),    UV8XI(6S) 

CB-l^SS    /BL^IS/  CICTK8)  .    CTSDI(fe)  ,    ST8DI18)  , 

.    ONTI(62l  »  CURBI(31I       >    CYCLIOl)       »    EMM(»96>    » 

•  ENBFI(il)  ,  GAAdl(l2»)     .    GA«TI(31)       ,    GBfcTIOl)       , 

•  (iLAni(12*>       ,  GMAoI(12»)     <    3U*BI(i2»)    I     INTum96>    , 

•  SABCIdZ*)       «  TKMK31)  ,kRKBI(31) 
C8HMBN    /BLM9/  CC2I129),    DFAILI69),    D8F(17)> 

•  111(31)  »    RAU9CC258)    <    RA*SP(25g)    #RTC  , 
.    TSTRT(516) 

C9HM8(M/aL"ia/AuR(i»),PIA(6)»RC1(2).HS9(H.l.AP8'1l  (  1»  ) .  CPN9U,  CPNBT, 
.    HARRJs^fj)  ,       H1AP(2)  ,       JCNT  »       KCNT  i 

•  "INC15  ,       xHSBF  ,       CLBCK  »       W1INF  • 
.    1INCT                    .       TAUI31                  »       N9NB18) 

CBHKBn  /J2CBNT/  wRkBFSI^*),  19(12*), IE*(3i)»ENtCYC(3i>,SPLIT[i24), 
1  C^RP:.(31) 

EJJIVALE'JCt  (AUTt»Ij*DVNII2)  )     . ( C ICE  I »CICBI ( 2 1 >    , 
»  (&AII,AGR(2) )       »  (H8lDI«hs8(2)  ) 

'  DPE*Sl9<  HBL0K81 

CBHM9n/8ITl2/BITAR(6»0) 

DIhENSIBN  AUvNH(32)#A93(3?)» AP9 ( 32) , ALT9F ( 32 ) « CI CBP( 3?  I  « 
lC I CEF ( i2 ), C I CTF, 32 )» CT8DF ( 32 w C1ALF( 3? ].CPABG( 32 ).FSTCF( 32), 
2h9LD(3?),IaOVP(32),  INTlSOEl.SfSKOfl.SPLCHisgl.STBYOOa), 
3ST«TA|  J2),THNSF|32HCICSF(32| 

EQUIVALENCE 
1 (AJvNH,BITAR(   1))»(A9G   ,BITAH(  33)1, (AP8   ,BITAR(  651], 
21AJT8F,B1TA*(  97)), 

1 |C1CBP,9ITAH(129) ),(CICEF, BIT  AH (161)1, ( CI CSF , BI TAR ( 193 ) ), 
1(CICTF,9ITAK(225J), (CTBOF, Bl TAR ( 257 ) 1, I CrtALF, BlTAR ( 289 1 ), 
3(CPA8a,BITAH(32] , ,, ( FSTCF, BI TAR ( 353 ) ), (H8L0  ,BITAR(385) ), 
»(I*DvP,aITAH(»l7)  ),(INTlS,BlTAH(i»»9))<  (SEHSK,BITAR(*81  I  ), 
•  5(SPLCh,3ITAR(513)>, (STWTA, BI TAR (5*5 > I , ( STBYO, BI TAR [577 ) ) , 
6ITRNSF,BITAR(609) ) 
CBHMBiv  /BYTL2/IC8N,JL2,KL2,  I DECR, «SL2 <5u ) 

I YTEGER  ADvNH,ABC,AP8,AUT8F,6PSlF,BTRNF,cICBP,CICEF,CICSF, 
1CICTF,lT9DF,C1AlF,CPABIj,FS1LF,UAI,m9lD,SEHSK,SPLC«,STBYD. 
2STRTA/TRNSF 

I  NTEGEK  AHBH\,LBNTB,CNTLN,LYCLC,ENINT,r,AABC,UAnTP,aB»TP, 
1SLABC,U1ABC,LDSET,  JCICT, 3Q(o  3QRR, QV8K,RRR,STBT",SABCT, TE«CT, T!*EB, 
2TK->,V9l,v9T 
■INTEGER  AMBHI,ceNT!,CNTLl,CYCLl/ENI''II,GAABt,UA.»TI,&B,,Tl,1UAFlI« 
lt.LABI,uHABI,3CICl,^QOI,Q'3Rwl,OVBKI,RRRI,STBTI,SABCI,TE«CI,TIMEI, 
2TK"1I,V6LI«VBTI 

INTEGER  wRkB!,ENBFI,CURB1, VRINI 

1NTEGEK  CLENG,CkiTDR,EMAST,STjPF,ENTFL 
IMTEGE*-  C0RBF,ENBFF,VRINT,>««<9F 
IN.IEGES  VRnT1,VRNT2,ENBF 

E30IVALENCE  («'SL2(l),GA«TP),|iiSL2(2),3BhTP)< 
1  (»SL2(*),INTR2i,{wSL2(5),INTRH),(wSL?(6),INTNH),('wSL?(7)ir.TNLI, 
2(nSL2(8)iTEKCT) 

iiJI VALENCE  («Sl2(30),ENINT,INTDU, IREOFl, 
1  i»SL2(i2l,I"<2i,  («5L2(3i)<  IR9,,  (»SL2(3»),  IB1*  ),  <  .SL2I35),  IR15  )' 
2l*SL2(36)»I'*10)f  (WSL2(37)»IH8  1*  (  *Sl2  (  39  ),  I  )  »  ( WSL2(*0i  •  1 1  >» 
3I«SL2(»1),I2) 
INTEGER  <FF 
1ATA  Al-F/.]/ 
C   ••  ARE  ALL  FUEO  TIME  C9NTR9LLERS  9N.LINE 

IF  (H6L0I (2«IL2.1).E0.SHSKI(?.IL2-1 ) 1  39  T9  890 
C   ••  CHECK  IF  ANT  UNDER  C9MPUTE*  C9'(TR9l 

IF  <H9LDI (2»IL2-l).Ea.AFF|  Ge  T9  890 
C   ••  SET  UP  L99P  T9  CHECK  IF  ANY  FULLY  ACTUATED  CBNTRBLlER  JBT  UNDE* 
C   ••  C9HPUTER  CBNTR9L 

JL2«1 
C   ••  F9HM  .NBT.(H9LD.AND.SE1Si<).AV0.SE^SK  AVO  CHECK  TB  SE^  IF  A\Y 
C   ••  T9  00 

830  IF(H9LC(  JL2).E'-.0.AN0.SEHSK(jL2).EU.l  )  G9  T9  3060 
»B0  IF  ( JL?. JE.J21G9  TB  890 
JL2»JL2*1 
G9  T9  >,30 
C   ••  START  tBBP  F9R  CBJsTDB»N  B>  CSNTRBlLER  INTERVALS 
C   ••  INITIALIZE  FLAGS  T9  2E«9 
890  JL2.1 
852  KL2«ICBN»JL2 
C   ••  IF  THIS  C9NTW9LLER  UNDER  CB"PulER  C9NTRBL  ANL  NST  iF-j -ACTUATE  J 
C   ••  G?  THRjUGH  INTERVAL  C9UNTDB»N,  ELSE  TRY  NEAT  C9NTO0LLF*t 

IF(H9Lj( JL2> .EJ. U.BR.SEHSKI JL2l.E3.0l  39  TB  1»J5 
C   ••  uP'JATE  AjT9F..'i9T.  IHBLO.ANj.sEHSKl.ANO-AUTBF 
AJTBF( jL2).0 

CALL  UPBYTI  1NT"I,KL2,  INTNH) 
INlNL»INTN 1 

CALL  PkB<T( INTLI.KL2, INTNL) 
C   ••  DECREET  CBJNTDBWN  REGISTER  AND  CHECK  IS  INTPRvAL  IS  CS'PU-TEJ 
CNTDR(«.L2)«LNTUR(KL2)-IDECR 
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IF<CNTDR(KL2).GT.O)  39  T8  1*35 
IR2.0 
1R15»0 
C   ••  CALL  RBUTINE  Tt)  UNPACK  BYTES, HALFWBRC,  AND,  «9RDS  F9R  THIS  C9»T, 
CALL  UNPT 
IR6.16o«L2»16 

c  ••  get  Current  interval  numbe*  and  chec*  if  cbstrslle*  has  just 

C   ••  FINISHED  ITS  LAST  GR£EN  INTERVAL.  IF  VES  SET  FLAG. 

IF( INTN1.E3>(1NTH2.2)I  IRIS'1 
C   ••  TEST  IF  EQUAL  T9  HAX  INTERVAL  NUMBER 

IF  (I.MTNM.EU.  INTRH)  Q9  T9  1230 

INTNM.INTNM*! 

IR»«IR6*INTNM 
C   ••  GET  INTERVAL  DURATI9N  VALUE  AND  ST8R£  IN  C8UNT  D8hN  REGISTER 

CALL  UPBYTI INTOI,IR*,INTDU) 

CNTDiJ(nL2)«INTDU 

G9  T8  1**0 
C   ••  SET  FLAG  T"j  INDICATE  C8NTR8LLER  INTERVAL  C8UNT  HAS  REACHED  -AX. 

1230  INTNM.1 
C   ••  G£T  FIRST  INTfHvAL  DURATI8N  VALUE  AND  ST8RE  IN  CBU»T  08*-g  RrGISTE 

IR».IRb*INTNM 

CALL  UPBYTI lNTDl,IR*,INTDUI 

CMfDR(KL2l«iNTDu 

IR2-1' 

G8  T9  16*0 
1133  CALL  PCKT 
1*35  IF  (JLc.GE.32)  RETURN 

JL2»JL2«1 

G8  T8  o92 
1**0  C9NTINUE 
1610  C8NTINUE 

G9  T8  16*2 
16*0  INTlS(uL8)«l 

CPABGl jL2)«1 
C   •• 
16*2  C8NTINUE 

IADVPI jL2)*l 

IF  (ADvNH(JL2).EQ.l )  IADVP(JL2)"0 

*0VNH(jL2)*0 
C   ••  TEST  IF  C8NTR9LLER  HAS  ENDED  LAST  GRfTN  INTERVAL. 

IF  (IR15.EQ.1)  CPA8S(JL2)»0 
C   ••  TEST  IF  THIS  C8NTR9LLER  HAS  EXCEEDED  M*X  INTERVAL  cBuNT 

IF  (IR2.NE.1)  G9  T9  1*30 
C  ••  IS  tRanSITI»n  FLAG  SET 

IF  (TRNSFI JL2I.E3.0)  G9  T9  2160 
C   ••  IF  N8T  CLEA*  SPl'Y  CHANGE  FL»G» TRANS! TI9N  FLAG/  AND  9FFSFT  CH»NGE 
C   ••  FLAG,  SET  CIC  BYPASS  FLAG 

SPLCHUL2)  «  0 

TRNSF(JL21  «  0 

FSTCFUL2)  ■  0 

CICBPUL2)  •  1 

CALL  UPBYT(ENTCYC»<L2»TMP) 

CALL  PkBYT(CYCLI«KL2»TMP) 

CALL  RTNS 

G8  T8  1*30 
C   ••  IS  BPS  TRANSITI9N  FLAB  SET 
2160  C8NTINuE 

c  ••  chec<  mi,  the  number  bf  remaining  cycles,  is  this  greater  than  o 

CALL  UPBYT(MII,KL2»MMI) 
IF(MMI.GT.O>  G8  T8  2750 
C   ••  YES  GREATER  THAN  ZERfl. 

C   ••  CHEC<  IF  8PERAT8R  SPLIT  CHANGE  FLAG  SET 
IF  (SPlCH(jL2).E0.1)  GS  T8  2?9Q 
261J  CALL  RTNU 
GB  T8  1*30 
C   ••  CLEAR  BPERATBR  SPLIT  CHANGE 
2290  SPLChijL?)  •  0 
JJ"**KL2-3 

CALL  UP3YT(VRINI» JJ/VRNT1 ) 
CALL  UPBYTlVRIM,  Jj*l,VRNT2) 
IR6.IRo*l 
I1«IR6*VRNT1 
I2»IR6*VRNT2 
C   ••  STBR£  8PERATIBN  SLPIT  INTB  W8RKING  StBRAGE 
CALL  UPBYTiUAwTI#Kl2>SAWTP) 
CALL  UPBYT(dBwTI»KL2,G8WTP) 
CALL  PkBYTI INTDI.I1«GAiTP] 
CALL  P«.8YT(  INTDI,  I2<GB«TP) 
G9  T8  2610 
C   ••  DECREMENT  Ml 
2750  Mfl.MMI'l 

CALL  P«.8VT<MII«KL2»HMI) 
C   ••  CLEAR  8FFSET  CHANGE  FL*Q  *ND  SPLIT  CHANGE  FLAG. 
C   ••  SE'  CIC  BYPASS  FLAG 
FSTCF(jL2)«0 
SPLCH(jL2).0 
CICBPl jL2)«1 
IF(MMI.GT.O)  GB  T9  1*30 
ID«.*M  JL2.1  ) 
SB  2751  IJP'l,* 
jNDX«IuX*IjP 
CALL  UPBYTi lft, JNOXiTMP) 
CALL  P«.BVT(>«RK8FS,jNDX,Ti1P) 
2'bl  CBNTlNuE 
C   ••  TRANSFER  N£*  DATA  T8  wBRKING  STBRAGE 
IR6.IR6*! 

CALL  UPBYTitNINIf IR6.ENJNT) 
CNTDR(KL2).tNINT 
CALL  UPBYT(EN8FI»KL2/ENBF) 
CALL  Pk8YT(WRK8I»Kl2#ENBF) 
CALL  MoYTS(EnINI,InT0I#IR6»U) 
GB  TB  2610 
C   ••  CLEAR  BFFS£T  CHANGE  FLAG.BPERAT8R  SPlIT  CHANGE  FLAG  AND 
C   ••  TRANSITIBN  FLAG 
3060  FSTCFljL2)  >  o 
SPLCHUL2)  •  0 
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19 
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19 
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19 
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19 
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19 
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19 
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19 
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19 
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19 
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19 
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19 
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19 
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19 
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19 

130 

19 

131 

19 
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19 
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19 

13* 

19 

135 

19 

136 

19 

137 

19 

138 

19 

139 

19 

1*0 

19 

1*1 

19 

1*2 

19 

1*3 

19 

1»» 

19 

1*5 

19 

1*6 

19 

1*7 

19 

1*S 

19 

1*9 

19 
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19 
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19 
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19 
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19 
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19 

159 

19 
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19 
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19 
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19 

163 

19 

16* 

19 
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19 
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19 
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19 
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19 
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19 
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19 
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19 
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19 
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19 

17* 

19 

175 

19 

176 

19 

177 

19 

178 

19 

179 

19 

180 

19 
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19 

182 

19 
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19 

IB* 

19 

IBS 

19 

186 

19 
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19 
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19 
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19 
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19 
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19 
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19 
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19 

19* 

19 
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19 
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19 
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19 
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19 
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19 
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tsvsf:jls)  •  o 

;   ••  F6*M  STASIA. AND.AUTBF.    IF  l£*H ,     NOTHING  T9  09 

IF  ISTKTA(  jL8).Ea.0'8=!.AUTSF(  jU21.E0.01  G9  T8  380 
H9LDIJL2)  •  1 
CICBP|JL2).1 
CPA6GI JL2U1 
AUT9F(jL2)  •  0 
INTNM.J 
KL2«1C8N*JL2 

CAUL  PkBYTi I\Tmi.kl2< INTN") 
CALL  PkBYTi  I\TL!<«LS»  IMNM) 
CALL  P«.BYT(STBTIirtL2»0) 
CALL  UPBYT|E\TCYC»KL2»T«P) 
CALL  PkSYTiLYCLI.Kl2»T.1P) 
3062  CB^TINuE 
CALL  RTNS 
G9  T8  880 
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2.  6.  73    SUBROUTINE  PCKT 


R8UTINEI       PCKT 


•         PCKT 

5J-iR8uTINE    t»C<T 

CS^MS*    /BLK17/    ADVMlSI  .    CICBI(B)  ,    C»9GI(8)  , 

•  IADPIlS)  i    C<NTDR(124>    >    CNTNM  ,     IL2  , 

♦  INTfll  <  31  )  ,     INTLK31)       •     !NT8I(32i       ,    KLl  i 
.    STBTI(32)»     TIMEI(32),    QV8KI,69) 

l\T£GEK    AMaPljCe.MTI/CMLI/tvcLIjENm.GAABI.QA^TI.SB.TIiSUAPI, 
l&L4UI#u1A8I»3ClCl.>:0Q!,QJHHl,Qv8KI»RRPi,STBTI,SABCI.T|r«Ct»TtMEIi 
2T<«1#VGLI»V»TI 

C8"1K8N    /8YTL2/ICBN, JL2/KL2/ IOECR. WSL? (50  I 

E'JUf  VALENCE     (wSL2(l),GA*TP),  (  WSL2  (2  I  ,  G6*TP  I  , 
l(».SL2(4)>INTKg),  (WSLJ(S),  I*TRM).  (wSl?(6I.  I^TNm).  (lSL2(7>«  INT^l' 
2l»SL2<a)»TE*C7| 

CALL    PKBrTI  I'JT"I.KL2,  INTN1) 

CALL    PkBVT(I\TLI.Kl2/  IMNL) 

RETURN 

l\0 
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2.  6.  74    SUBROUTINE  UNPT 


BiuTlJf!       L\PT 


•         JNPT  21 

S./BR9uTI"E    UNPT  SI 

CS^KBn    /8L«.7    /*B3IH6)  #     INTHIOl)       ,     INT2M31)  »  21 

•  <CTC(  l7)»K3PHl  (31  WSTUPFjNQLlSl)  81 
C?iMBN    /SL<17/    A0vM(8>         <    CICBI (81         #    CA9GK8)  »  21 

•  I*DPI(8)  ,    CNTD"H2»)     i    CNTNM  ,     IL2  /  21 

•  INTMI(31)         ,    INTLlOll      »    I\T8I(32i      >    KL1  ,  21 

•  STBTH33),     TIKEK32),    QvBKI(i9)  21 
C9">M6N    /BLK18/    C ICT I  ( 8  >          »    CTSDKg)          .    STBDH8I  i  21 

•  C9NTK62)         ,    CUR8K31)      »    CYCtiOli      /    £NIMI»9*i  i  21        It 

•  E^9fl(3l)  .    QAABI(12*I    >    5A.TK31I       >    OBwTIOl)  i  2l         11 

•  3LABI(12»>       >    GMAB1(12»1    >    GuABidZd)    /     INTDIl*96)  I  21         1! 

•  SABCK12*)      j    T<iil  131 )         »»RK9K3l>  2i        IS 
INTEGER    AM9*IjC8NTI»CNTLI»CVCLlfEN|NI,G*ABI»G»«iTI»uB.Tlf5U»Bli  21         1' 

lGLABI»u"IABI»iJClCl«Iia0I»0JRNl,0v9KI|l»RRI,STBTI,SABCI»TE«Ct»TIMEI»  21         1! 

2T<1!»V8LI»V8TI  21         T 

INTEGER    *R<SI<ENBF1»CUR8I#VRINI  21         1 

CB1H8N    /BYTL2/    ICBNj JL2/ <L2« ! DECR/ wSl? (50 )  21         1 

ESJIvalEnCE    (<(SL2(  1  ),GAWTP)#  (USL2(2).GB»TP)/  •  21         1» 

1  ("SL2U1/  KTRj),  IWSL2(5)»  INTPH),  (  WSL?(  t )  <  |MN«  )  ,  (t>SL?(7),  INTNLI.         2  J         20 

21«SL2(8)«TEi«CT)  21         21 

INTEGER    GA.TPjGB^TP/TExCT  21         22 

CALL    uP8TT(1NT2I»Kl2» INTR2)  21 

CALL    UPSYT(1\TM!.«l2» INTRH)  21 

RETURN  21         25 

EVJ  21         2fc 
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2.6.  75    ROUTINE  U 


'RBUTlNEI       RTNU 


IST2K31) 


C«U>G 


CABQI(«) 
112 

KL1 

stbdmsi 

EMN!(»96l 

3B*TI(31) 

INTDIU96I 


C         *         *TNU 

SUBRBuTINE    RTNU 

C8"IM8N    /BL<7    /A8GI(16I  #     INTHtOll 

•  KCTCI i7).k3PHI(31),STUPF,\QL(31) 
CBHM8N    /BL<1*/    CLEnG  »    OTLNG 

•  DJMY1  ,    DUHY2, 

•  CNTLI(372I«    ENTFL(5),    KCLI17).    KCTF,i7l, 

•  <CSF(17>.    NMv*I(31),    SHSKKg), 

•  VMNIU23)       i    LNKPT(6*) 
C8HMBN    /81K17/    ADVNl(»)         ,    C1C6I(8) 

•  I*DPIl8)  »    CNTDR(12*>    »    CNTNM 

•  INTHl(3l)         ,    INTLK31)       t    !NT8I(32| 

•  STBTJ(32)»    TIMEK32),    QV9KI(69) 
C91M8N    /BLK18/    CICT  I  (8>         .    CTBDK8) 

•  C8NT[(62)         ,    CURBIOl)       «    CVCLK31) 

•  EN6FI(31)  ,    GAA«I(l2<t)    <    3AWTK31) 

•  SLABt  (  12«  I  i    a«A81(12fc)  «  SUABI<12»> 

•  SABCK12*)   «  TKMK31)    «WSKBI(31) 
C   ••  THE  PURP8SE  8F  THIS  RBUTIN  IS  TB  CBHpuTE  THE  DIFFERENCE  3EKEE* 
C   ••  THE  PRtSENT  C8NTR8LLER  8FFSET  AND  The  OESIRED  C8NTRBLLER  BFFSET 
C   ••  AND  CBRRECT  F8R  THIS  DIFFERENCE 

ceHn8N/eiTi.e/BiT»R(6itO) 

DI^ENSIBN  AUVNH,32,,A8G(32)»APB(32),AUT8F(32I,CICBP(3?I» 
lCICEF(i2)/ClCTF(3a)/CTBDF(3Z)»CH»LF(32)»CP*8S(3Z),FSTCF(32), 
2H8LD(32)»IAl>VP(32)»lNTlS(32>,SEHSK(32l,SPLCH(32)iSTBY0(32l. 
3STRTA(32),TRNSF(32)»CICSF(32) 

EQUIVALENCE 
1(A0VNH,BITAK(   1)),{A9G   ,BITAR(  331  t  j  r  APS   »BITAR(  65)). 
2(AJT8F.3ITAK(  97)). 

1 (C1CBP,BITAR(129>)» (CICEF, BI TAR ( 161 ) I , (CICSF, BI TAR ( 193 1 1 . 
1(CICTF,8ITAR(225) ). (CT8DF,BITAR(257) I. ( CMALF, BI TAR ( 289  I ). 
3  (  CABS.  81  TAR  (321)  >,  (FSTCF/BITAR(  353)  I,  (H8LD  ,BITAR(38S)  1. 
t>(!ADvP.BITAR(*17))«<INTlS.BlTAR<lt*9>l#(SEMSK»BITAR<»8!>)» 
5(SBLCH<8ITAR(513) >. (STRTA, BI TAR( 5*5 ) I. ( STBVD.BI TAR (577 > )» 
6(THNSF,BITAH<6D9>> 
C8MM8N  /BYTL2/ICBN, JL2» KL2» IDECR, *SL2 I  5 0 ) 

INTEGER  ADvNH,ABG,  AP8 » AUT9F. BPS I F,BTRNF,CtCBP, CICEF. CICSF, 
lCICTF,CT8DF»CMAtF,CPA8(J,FSTCF,  jAI,mBlD»SEMS<,SPLCH,STBVD, 
2STRTA,TRNSF 

INTEGER  AH8HN,CBNTB<CNTLN,CYCLC,ENINT,GAABC,GA«.TP,GB»TP< 
1SLA6C,UMABC,LDSET,QCICT,QQQ,QQRR,Qv8k,RRR,STBTM,SABCT.TE<«CT,TIHE8,  23 
2T<H,VBl»VBT 

INTEGER  AHBPI.CBNTI/CNTLl/CTCLl'ENINt.GAABI.UA.TI.iiB.TI.GUABI. 
lGLABI,u1ABI»QCICI,3QQI,QQ«RI,QVBKI,RRR!,ST0TI,SABCI.TE«CI,TIMEI, 
2TK"i,VBLi,^TI 
INTEGER  «R<8I,EN8F!»CUR8I 
INTEGER  *RK8I,EN8FI/CUR8I,VRINI 
INTEGER  CL£NQ,CnTDR/EMAST/STuPF»ENTFl 
INTEGER  CURBF,EN8FF»VRINT»wRkBF 
INTEGER  CUR*-.»RKF 

EQUIVALENCE  (rtSE2(25).CYCLO,  (  *SL2(26  )  .  NAM6P  )  ,  (  WSL2I  27  )  »  18EPS  ) 
EQUIVALENCE  (WSL2(30)»AH8PN,H8E1P»HBE2P)»  (  *SL"2  (  32)  ,  IR6  )  > 
1 (*SL2( 33), EPSBF 1 » ( »SL2 ( 3» 1 . IR2 >» <wSL2(35), I R12 ) » ( taSL2 ( 36 ) , I  RIO ) i 
2(«SL2(37)«I*5) 
INTEGER  <FF, EPSBF 
IR6.6.*L2-5 

CAUL   uPBYT(CYClI,<L2»CyCLC| 
CYCLCCYCLC  +  1 
C   ••  SET  THE  CURRENT  BFFSET  IN  CUR9F  AND  C8HPUTE  THE  DIFFERENCE.  EPSBF 
C  •••  BETWEEN  TH  HRESENT  CBNTR8LLER  BFFSET,  KCTC(LYCLC),  AND  THE  DESIRED  BSl 
C   ••  BFFSET  WRK8F 

CURF.KCTC(CTCLC) 
CALL  P<.8YT(CURBI»KL2.CURF) 
CALL  UPBYT(iRK8I.<L2."R<F) 
£PS9F.»R<F.tiJRf 
C   ••  IF  THE  CURRENT  8FFSET  EQUALS  DESIRED  BFFSET.  RETURN  TS  R8UTJN£  T 

IF  (EPSBF. EU.O)  RETURN 
C   ••  TEST  F9R  NEGATIVE  DIFFERENCE 

IF  (EPS8F.LT.0)  GB  TB  880 
C   ••  TEST  F8R  LESS  THAN  6  SEC8NDS 
IF  (EPSBF. LT.12)G9  TB  »00 
IRl»«<CLICYCLO-6 
C   ••  TEST  EPSBF  LT.  | KCL (CYCLC ) -3  SECBNDSi 

IF  (EPs8F.LT.IRl»)  G8  T9  500 
C   ••  NB»  SUBTRACT  8FF  CYCLE  LENUTH 
EPSBF.EPSBp-KCLI CYCLC) 
♦00  CBNTINuE 
C   ••  ADD  EFSBF  T8  COUNT  D8WN  REGISTER 
*02  CNTDR(KL2)«CNTDR(KL2>*EpS8F 

IF  (CURF  .3T.  KCL(CYCLO)   CjRF  •  CURF  .  KCL(CYClC) 
CJRF.CjRF«EHS8^ 
CALL  PkSYTiLURBI.^.CURF) 
RETURN 
C   *•  TEST  If  EPSBF  IS  GREATER  THAm  2/3  KCL(CYClC) 
BOO  IRU..66667»<CLICYCLCI 

IF  (EPSBF.GT.IRlt)  GB  TB  5B0 
C   ••  N9.  SET  EPSBF  EQUAL  T9  6  SECONDS 
EPSBF. 12 
1,3  TB  *00 
C   ••  YES,  SET  EPSBF  EQUAL  T8  -3  SFC8NDS 
580  EPSBF.. 6 

GB  T8  *00 
880  IF  (EPSBF. GE. (-6) )  08  TB  100 
EPSBF. nCL(C"CLC)»EPSBF 
IF  (EPSBF. LE. 121GB  TB  »00 
GB  TB  500 
END 
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2.6.76    ROUTINE  V 


RBUTInES   RTNV 


•    RTNv 

SUBROUTINE  "TMV 
••  TB  APPORTION  t«E  SPLIT  BF  THp  CRITICAL  PHASES  8F  an 

•  •  3PEPATI6-JAL  CRITICAL  INTERSECT  I8N  ACCORDING  T8  THE 
••  ME'SuRfcD  VEHICULAR  DEr'^9  9N  THESE  PHASES. 

C8^M8\  /BLK7  /A83IU6I     »  INTHIOl,   ,  1NT2K31)   , 

•  <CVC(17>,  *3P"I01),  ST'JPF,  NOLIOll 

C91H9N    /BL<13/    9«Ll259>  «C*LP(17>  i    E8DC  » 

.    Fl  AB,    FTB.B,    K8EI I (691 
C8"M8\I    /8LK1»/    CLENS  t    DTLNO  <    CMLNG  j 

•  0JMY1  «    DUMY2* 

.    CNTLI(372l»    ENTFL(5).    KCLI17).    <CTF,l7>, 

•  KCSF(i7)/    NMvAIODa    S*<S«I(8)< 

•  VINIC123I       i    LM<PT|fc*) 

C91M8N    /8LK17/    AOvMlS)  .    CICBK8)  »    CA8GM8)  , 

•  I»OPI(8)  ,    CNTQR(12*)    »    CNTNM  ,     IL2  i 

•  I^TMI  (  31  )         ,    INTLlOll       »     INT8K32)      i    KL1  < 

•  STBTI(32),     TI1EK32),    Qv8<I(69> 

C8"MBN    /BL<18/    CICTI(8)  »    CTDDK8)  ,    STBDK8)  . 

•  C9NTI162)         .    CUR8K31)       .    CVCLK31I       #    EMMU96)    » 

•  ENBFIiSi)  ,    5AA6IH2*)     i     GA*TK31l       .     SBwTIOl)       . 

•  5LABIil2»)       ,    G1AaI<12kl    i    SU*BIC12»I    »    INTDI(*96)    , 

•  S*BCI  1 12*1       i    TH1H31)         »»RKBI(31I 
C9">MBN    /"ISLL/    CICI"-H(8)»LSU(3)/CYC«EF<5)  . 
INTEGER    CICINH,CTCREF 
C9-,M8N/8ITL2/BITAR(6»0) 

01  "'ENS  I  8n    AUvSh(32),A85(32)»4P8l32),AUT9F(32).CICBP(3?l, 
1CICEF( j2l,CICTF ( 32 ) , CT8DF < 32  I , C«ALF (32  I , CPA93I 3? I , FSTCF ( 12 ) , 
2H9L0I32)/ IAUVPI32). INT1S I  32 ) , SEMSK ( 3? > « SplCh( 32 ) , STByS ( 32 ) » 
3ST-<TA(  J2),T'<NSF  (32HCICSF(32) 

ESjIkalENCE 
1  (AJvNh,bITa«(       l)),(A8li       ,BlTAR(     331WIAP?       »BlTAR(    6SI), 
2(AJT8F,81TA«(    971). 

1  (ClCBP,31TA-<(,29l  )/  (CICEF.olTA«(lM>  1 1  (  CI  CSF,  B  I  TAR  (,93 1  I , 
1  |CICTF,BITAX(225) ), ( CT8DF, Bl TAR( 257 ) I, (CMALF, 8 1  TAR ( 239 1 ), 
3(CPAS3/8ITAK(32i ) ), (FSTCF.Bl TAR < 353 ) ), (H8L0  » Bl TAR ( 385 ) ) . 
k(  IADVP,BITA«(417>  )*  (INTlS»olTAR(**9)  I,  (SEM3K,BlTAR(*8i  I). 
5(SPLCH,8ITAK(5l3)).<ST«TA,BITA«(5*bl>,  [STBYO, BI TAR (577 ) ) , 
6(TRNSF,8ITAR(609) ) 

C8"n6M    /BYTL2/IC9N, JL2*<L2< IDECR. WSL? ( 50 > 

EJUIVAuENCE     (NUL/«SL2(1)  ),  (LSI««SL2(?)  ).  (  QVBK, -iSL2  (  3  I  ). 
1     (VRINT.*S_2(*))» (LlNK/WSL2(8) ) < (SABcT, «SL2 ( 16 I ) « 
SISAABC,  «SL2(20>  )<  (3LABC»iSL2(2»)  )»  ( GhASC. »SL2 ( 28  I  I. 
3(CNTL\,»SL2(32>).  I  EMNTj -iSL2(33 )  )<  < I \T0u, «SL2 ( 34  I  )i 
»l<JPH,»SL2(35l ), 

51 vBT, »SL2(3S> )<  ( 5UABO »SL2 ( 39  I  1/ 

6  ( IR*/«SL2(34) l»  (IR6,»SL2(37| I / ( I  Hi  «SL2 ( *5 I ) / 

7( I*S#»SL2<»6) l» ( IR3»*SL2(»/I I , ( I  RIO' »SL2 ( 48 ) ) » I INC»3. »SL? ( 49 ) ) i 
bl I*11**SL?<90) ) 

01  "ENS  19.    3AABC(4),GLABC(*).'.iHABC(4>,SABCT(4>,;,UABC(4),VRlNT(*), 
1    LIN<(5) 

INTE3E*    »D*NH<A9&»AP8»AJTeF#?|OSIF,eTRNF,CICBF,CICEf'JCtCSFj 
KlCTF,cT80>-'<C«ALF,cPA9(j»FSTLF,3AI/H9LD<SEMS<,SPLCH/STe»C. 
2STKTA.TRNSF 

IMTtGEkc     *^8t"M»L»NTB»CNTLN«C.YCLCiENlST,nAABC»liA»TP#oB.TP»3'JAPC# 
liL»OC.v-"ABC<LDSET,  ;C!CT/l'3-.TQWRj'3vBn,CRH/STBTM|SAiCT,TE-.CT,TIHEe, 
2I^~/ VSL/VBT 

ImIEGER    A*BPI,LBNTI/CvTLl»CYCLl>ENIM!»'5AABI»ljA.»TI,33..Tl»3U*aI» 
]  C.L»bI,  j-Aei/.;ClCI»-COI»Qawnl  .3V9KI#'«RRI/STBTI,SABCI»Tr»C!iTI1ErA 
ST«iI» VBLI<  ^»TI 

IME^E"    CLE^'ijt-^TOhf  E"*STjSTuPF,tNTFL 

IMEoE-<    Cu^BF.ENBFF.vRINT.kRtBf 

!\TEUE>-    'iCA/tiDO/oA/l'o.OCtGAb.GJB 

OAT  A    o^A/o/»oD"/0/<UOC/0/»oA/o/»o8/0/»  3C/0/»3AB/0/ 

•  •  if  i  interval  b--e  Start  flaj)  a^d  iSe-Iactuateo  Cs^tRsllfRS) 

••  ARE  E'j^AL  TO  ^LRB 
09  500:   I  1.1.32 

IF  ( I\T1S( 1 1 ] .E:.1.A\D.SLMS<( I  I ).E-«1  I  38  T9  5o0 
33  T8  bOOO 
bbO  IST1S(  I  I)  .  0 

•  •  IS  CIC  BTPASS  I-LA3  SET 

IFICICnPI  II  >.E<-.1>  (>9  T8  6b0 
••  IS  BFF3ET  C"asue  FLA3  SET 

It  (FSTCFI I  I I.EC.OI  jB  T3  b9 1 

•  •  v;S  oST-  StT 
6b0  CILBPI ; I )  •  1 

CICTFdll.O 
CICEF(tl).'.' 

ti9  TB  'jJCC 
69v  HL2  ■  (II'ILBM 

CALL  UPBYT  (  \'JLI»<L2»N'JL1 
IF  (M'ji.<EQ'OI  «9  TB  5000 
TrST  F8R  CIC  IMHI^ITE-  BY  t<PT  I -UAT  1 9 -i  P^-jTI^Ea 
"CALL  3F TBI (tICI\H»«L2» IJ» 1 ) 
1FUJ.NE.0)  38  TB  5000 
..  ovuAC<  SPECIAL  BYTE  ARRAYS  ^fe3ec  in  this  sui-rbutine 
Call  uKv 

•  »  \9  IT  IS  N'JT 

IR».l 

I'R6.16.(<L2«1  ! 

INJaa.lSI 

LI-i.\)l*LSI 
7*0  Call  ui-h-  (L\tli»  ImDxa/  InDxBi 

IF(  ^3*B.LT»")  GB  T8  7bC 

I\3XB«lNi)Xd*l 

CALL  UP9YT  1N8EII» INDXB.18EIF) 

IFIMBEIf .NE«0)  QB  TB  2L10 
750  CSNTIMuE 

1SJXA«1NDXA*1 


2* 

1 

2* 

2 

2* 

3 

2* 

* 

2* 

5 

2* 

6 

2* 

7 

2» 

8 

2* 

9 

2* 

10 

2* 

11 

2* 

12 

2* 

13 

2* 

14 

2» 

15 

2* 

16 

2. 

17 

2* 

IS 

2* 

19 

2* 

20 

2* 

21 

2* 

22 

2* 

23 

2* 

24 

2* 

25 

2* 

26 

2» 

27 

2* 

?i 

2* 

29 

2» 

30 

2* 

31 

2". 

32 

2k 

33 

2* 

34 

2» 

35 

2k 

36 

2» 

37 

2* 

3! 

2» 

39 

2* 

»0 

2» 

*1 

2* 

•? 

2» 

»3 

2* 

44 

?» 

45 

2* 

46 

2» 

47 

2» 

48 

21 

49 

2- 

50 

2* 

51 

2» 

52 

Ik 

S3 

2» 

54 

2* 

55 

2* 

*6 

2» 

57 

2» 

5  8 

2* 

59 

en 

60 

2k 

61 

2» 

6? 

2» 

63 

2» 

6k 

24 

65 

2* 

66 

2» 

67 

2. 

66 

2* 

69 

2h 

7C 

2» 

71 

2» 

72 

2» 

73 

2» 

74 

2* 

75 

2» 

76 

2. 

77 

2. 

/8 

2» 

79 

2» 

80 

2» 

"1 

2» 

t2 

2k 

83 

2» 

4k 

24 

85 

24 

86 

24 

87 

21 

88 

24 

"9 

24 

90 

24 

"1 

24 

92 

24 

93 

24 

9» 

24 

95 

24 

96 

24 

97 

24 

98 

24 

99 
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IF( INDX'.Ni'lI")  3B  TB  7*0 

IF(CICSF( I  I l.NE.ll  GB  T8  201o 

IF(CT80F(M).NE.l)  GB  TB  SOlo 
CKEFI  II)  .  1 

IR5.  VhlNT(l)   +  IRt> 

CALL    UPBYT(EMNI.IR5,ENINT) 

CALL    PnBYT(INTOI#IRS»ENINTI 

IR5»VRINT(2>*IR4 
CALL    UPBYT    (EMM/  IR5.ENINT  ) 
CALL    PkBYT    (  1MDI,  IR5»EMM> 
C       ••    CALL    jhEEN    UEMAND    SUBRBUTIME    F9R    GDA 
1000    GOA.o 

IF(LlNMl)tUT.O)    CALL    GDSUBIL  |MK(1)«GDA) 

IRll-u 

IF(LINM2)  .GT.C)    CALL    GDSUb(LINK(2)» IR11 1 

IF     (IRll.GT'SOA)    SDA.IR11 
12»0    GDB»0  |  * 

IFILIMM3)  .ME.O)    CALL    GDSUB(LIMK(3),CDB) 

IR11-G 

IF(LlNM»).NE.O>  CALL  SDSU6(LINK<*  )#  IRU ) 

iFTaOBtGT.iHU)  GDB'lRH 
1090  IF  (K3PH  .  UT  ■  0)  G8  T8  238o 

IFICICTFIIl l.NE.ll  GB  TB  1300 

IF(G0A.3T.GLABC(IR»))  GB  TB  (690 

1R7.IR»*1 

IFIGDB.GT.jLABCl 1R7) >  GB  TB  1690 
1630  CBNTJMuE 

GB  T8  ,=  190 
1650  CICTFl  | I  I  •  I 
1690  IR9.GA»BL( IW») 

IR12.'jMABC(  IRO) 

]S7.I9»*1 

IR13«3MABC( IR7) 
170U  IR10»GD3 

IR11»G0A 
C   ••  GB  TB  2  PHASE  SUBRBUTIME 

CALL  PSU82UR9,  IR1G. IR11 . I R12.  IR13 > 
1770  |R9.SAbCT(I«») 

IR12»IS12»IK9 

IR7.VRINT(1>   »IR6 

CALL  P».BYT(  INTUI.  I«7,  1«12) 

IR7.IR,«l 

IR9.SABCT(IR7) 

IR13MK13MX9 

IR7.VR1NTI2)   *IR6 

CALL  PaBYTi INT0I.IR7.IR13) 

GB  TB  2300 
1900  IF (GDA.3T. GUABCl IR») I  GB  TB  1650 

1R7.IR»*1 

IF(GD8.3T.0UABC( IR7) )  GB  TB  1650 

GB  TB  BOOO 
2010  CICEF( II)  .  0 

IF(CICTF(  ID.NE.l)  GB  T8  5000 
2080  IF<K3PH  .  ME  .  1 )  GB  TB  2190 
2^30  IR5«VRINT(3)   *  I  R6 

CALL  UPBYT  (EMM,  IR5.EMST) 

CALL    PpiBYT    (INTDI.IR5.EMMT) 
2190    IRb.    VMMT(l)       «IR6 

CALL  UPBYT  (EMM,  IH5.EMM) 

CALL  PkBYT  (IMTDI.IR5.EMNT) 

IR5.VRIMTI2I   *IR6 

CALL  UPBYT  (EMIMI, IH5.ENINT) 

CALL  PuBYT  I IMTOI. IR5.ENIMT) 

CICTFl II)  .  0 
2300  CALL  UPBYT( I  MTU  I . I»6»l, I MTDU) 

CMTDR  (<L2l  ■  INTDu 

CMTMM.<L2 

GB  TB  SOCO 
2380  UCO 

IFILIMM5I.ME.U)  CALL  GDSUb  1 1 1  MK  (  5)  ,  GDC  ) 

1F(CICTF(H  l.ME.l)  GB  TB  266;. 
2520  IFIGLAdCi IR*)tLT«SD*I  GB  TB  2820 

IR7«IR»*1 

IF(GLAdC( IR7) .LT.GDB)  GB  TB  ?820 

IR7.IR7+1 

IFIGLA6CI IR71.LT-3DC)  GB  TB  2820 
2640  CBMTINuE 

GB  TB  2JoO 
2660  IF  (GUABCl IKO)<LT.uDA>  GB  TB  2780 

|R7.IR«»1 

IF  (GUABCl IH7). LT.GDB)  GB  TB  2780 

IR7.IR7+1 

IF  (GUABCl IH7J.GE.3DC)  GB  TB  5000 
2780  CBMTlMuP 

CICTFl I  I)  •  1 
2820  IF  (K3PH  .  tO  .  1)  S6  IB  313o 

IF  (K.3PM  .  HZ    .    2)  GB  TB  356n 

IR11«  uOA 

I  RIO"  GOB 

LjAB.GAABCl  IK*  1 

IR9  •  GAB 

IR12.G.'ABC(  IK*) 

IR7.1R»»1 

IR13.G(-ABC(  1R7) 
C       ••    38    T8    2    PHASE    SUBRBUTIME 

CALL    PSUB2(  IR9.IR10.IR11.  IM2.IR13) 

GA«IRl2 

GBiIRlJ 

IRll'GbC 

IRIO'GOB 

M9.GAABCI  IK7) 

IR13.SMABCI 1R7I 

IR7.IH7+1 

IR12.SABCTIIR7) 
C   ••  GB  TB  2  PHASE  SUBRBUTIME 


20 

100 

20 

101 

20 

lot 

20 

10$ 

20 

100 

20 

105 

20 

106 

20 

107 

20 

108 

20 

109 

20 

110 

20 

HI 

20 

112 

20 

113 

20 

110 

20 

115 

20 

116 

2o 

117 

2o 

118 

20 

119 

20 

120 

20 

121 

20 

122 

20 

123 

2o 

120 

20 

125 

20 

126 

20 

127 

2o 

128 

2o 

1?9 

20 

130 

20 

131 

20 

132 

20 

133 

20 

130 

20 

135 

20 

136 

20 

137 

20 

136 

20 

139 

2o 

100 

20 

101 

20 

102 

2o 

103 

2* 

100 

20 

105 

20 

106 

20 

107 

20 

log 

20 

109 

20 

15c 

20 

151 

20 

152 

20 

153 

20 

150 

20 

155 

20 

156 

20 

157 

20 

158 

20 

159 

20 

160 

2o 

141 

20 

162 

20 

163 

2o 

160 

2o 

165 

20 

166 

20 

167 

2o 

168 

2o 

169 

20 

170 

20 

171 

20 

172 

20 

173 

20 

17* 

20 

175 

20 

176 

20 

177 

20 

178 

20 

179 

2o 

1KC 

20 

191 

2o 

1!? 

2* 

1*3 

C4 

i  f  c. 

20 

185 

20 

186 

20 

187 

20 

185 

20 

189 

20 

190 

20 

191 

20 

192 

20 

193 

20 

1>»0 

2o 

195 

20 

196 

20 

197 

20 

19g 

20 

199 

20 

200 

20 

201 

20 

202 

20 

203 

20 

200 
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C»LL  PSUB2(I*9'IR1C<IR11<I*1?<IR13) 

"  !F<  |R1 J.3T.UD)  JR13  ■  68 
3100  IR12..1AB-IR13 

G9  TB  1770 
3130  M7aM*«2 

IR9.GAABCUR7) 
|R10«3kA6C( IR4I 
IR12.5flAdC(lR7) 
JB7.  I IR7-1 
IRU.ShASCI  IR7) 
H13»3LA»GDB»G0C 
IS15»(uDC«IK9)/lRl3 
IR15.1K15/B 
!«15«H15»2 

IF< IRls.LE.IRl2)    GB    T8    3*40 
IR13.IR9-IR10-IR11 
IF< IR15.LT.IR13)    GB    T8    3450 
IR7.IR4+2 
IR14.SABCTI IR7I 
IR7.VRIMTO!       +  1R6 
IR13.IR13-IK1. 
CALL    PkBTTiInTOI. I«7, IR13) 
IR12-IM0 
IR13-IR11 
G9    TB    1770 
3**0    IR15.IR12 
3430    IR7.IR4«2 

IR9.IR9-1R15 
IR14.SABCTCIR7) 
IR15.I«15-]K1* 
IR7.vRINT(3>       *IR6 
CALL   RkByT    (INTDl«IR7»IR15) 
IR12.1k10 
IR13»Iftll 
GB    TB    1740 
3560    IRll«GuB 
IRIG'GDA 
IR9.GAABCI IR4) 
IR7.IR»+1 
!R12.Gr,ABC(lR7) 
IR13.GMABC11R*) 
C      ••    GB    TB    i    PHASE    SUBRBUTINE 

CALL    PSUo2(IR9« I«10»|Rll»I»l?>IR13l 
GB«IR12 

&A.JR13 

GDCiIRll 

G3A.JR10 

lR13.jrABCllR») 

IR7.IR,*i . 

IR9.Gaa9C(IR7) 

IR7.IR7.1 

P12.SaBCT(1R7> 
C       ••    G9    TB    i.    PHASE    SUBR3UT1ME 

CALL    PSJB?    < IR9,IR10,IRll»IRl2»IR13> 

ga»:ri? 

1fiir13.ge.ga)  g9  t8  3790 

37B0    |R12»IW13 

3790    IM3«GAABC(IR4) 

IR13«IR13-I«12 

G9    TB    1770 
5000    C9NTINuE 

RETURN 

EN3 


2* 

205 

2* 

206 

24 

207 

2* 

208 

2". 

209 

24 

210 

24 

211 

2* 

212 

24 

213 

2* 

214 

2* 

215 

24 

216 

2* 

217 

2* 

21B 

2* 

219 

24 

220 

2* 

221 

24 

222 

24 

223 

24 

224 

2* 

225 

24 

226 

2* 

227 

24 

225 

24 

229 

24 

230 

24 

231 

24 

232 

24 

233 

24 

234 

2* 

235 

£4 

236 

24 

237 

2* 

236 

24 

239 

24 

240 

2* 

241 

2* 

242 

2* 

243 

24 

244 

24 

245 

2« 

246 

24 

247 

24 

248 

2» 

249 

24 

250 

24 

251 

24 

25? 

24 

253 

24 

254 

24 

255 

24 

256 

24 

257 

24 

258 

24 

259 

24 

2*0 

24 

261 

24 

26? 

2* 

263 

2. 

264 

2* 

265 

24 

266 

2* 

267 
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2.  6.  77    SUBROUTINE  GDSUB 


■8UTI-.E:      COSJB 


C         •         3DSjt, 

3JBR9JTI,l    j!>Si.B1C\TL\'.0A) 

C3-"->3  .    /-<L<1»/    CLE\G  ,    m\3  .    C-LN5 

•  3Jf.Yl  .    0JMY2, 

•  CSTLI,i7j,,    E-\TFL(b).    <CLU7)»     KCTP|17), 

•  <CSf(i7),    V-VMI31I,    S1S<IU)« 

•  w ■* I >* I  i  153)       ,    L^<PT(6t)  ' 

Ce^SN    /OL^25/    AHCCIUJa)/C^AL{17),C"T»9(?5M< 

•  JTTAG(25«)       ,    DISI17)  .    JMALH17I       <    D-90E 

•  FLTAB(S'JO)       ,    h«r  ,    M90ES  ,    NAI 
*,iS-iL'    SBA*<69"    SECFClt).    SCUFCm,     v9LI<138) 

C91M8M  /BYTL2/KBN,jl2.KL2.IDEC«,WSL2(50) 

EQUIVALENCE  («SL2(13),CVCLO 

l\'EiEl.    CYCLC.SL2 

I^'EGE*    V8Ll»V8L»AhCCI»AHCC»CNTLIiCNTLN»a» 

IMESEh    .Sl2 

lVtEQEh    C1,C2,L3 

C 122.. 239    09 

3A'A    Cl/122/ 

JATA    Ctr/21/ 
C<»«"    2SH.  1,001.6a    98 

OATA    C3/254/ 
(>•••    I  1 4k.    i-ELEASE    «»Tr    J    eJ 

CATA    IkS/K,/ 

CALL    UPh«    (AhCL!,C\Tl\,AHCC) 

CALL    UPm..     (V9lI.C\TLi\,v8lI 

AhCC.a-.CC/123 
C«"«    Ce^PUTE    Al    *    B« 

IA»AHCc«Cl/32 

M'IA/^56 

I  CCa.»c!L»KCL<C<rCLC  1/7200 

IB"ICC2«C2/2 
C«*«    C9~iPuTE    CWSi    TER1 

IC46S.ICC2.A-ICL 
C    ••••    OhPuTE    C    i    B< 

ICMC40S.C3/16 

IC'IC/bl2 
C»»«    Cei^UTE    SE^AND    NVEHICLES)    S    H„ 

5A»IA»|9»!C 
C.«.«    CJlPuTE    OE-lA-jf)    (SECBMDS)     Sbl 

CiA»l,A.|4-i/32 

^ETOSr, 


28 

1 

28 

2 

as 

3 

23 

4 

28 

5 

28 

6 

28 

7 

2o 

S 

28 

9 

28 

13 

28 

11 

28 

12 

28 

13 

28 

1» 

28 

15 

28 

16 

28 

17 

28 

1! 

28 

19 

28 

20 

28 

?1 

28 

22 

28 

S3 

28 

24 

28 

25 

28 

2t 

28 

27 

28 

25 

28 

29 

28 

3; 

28 

3; 

28 

i? 

it 

33 

28 

34 

2o 

35 

28 

36 

23 

37 

2a 

3? 

28 

39 

28 

4*1 

28 

"1 

28 

42 

23 

43 

28 

44 

23 

4? 

133 


2 .  6 .  78    SUBROUTINE  PSUB2 


B'JUTI-L!       P3J32 


"SOS? 

iRio»iKio/e 

l=Ul«IKU/2 
IRll.Ifcll«2 

I«10.I«10*I«11 

iru«i*ii«2 

If  I  1*511  .GT.I«12)    GB    T8    100 

IR13.IS94IR12 

US  TB  SIO 
100    IR1C«IK9-IRU 

I-*12«IkU 

IF(  IKlu'SEWlS)    GB    T6    200 

I'12.1r,9-IW13 

GB  TB  530 
200  IR13a  Irllc 
J03    SiTURM 

EMU 


?5 

1 

25 

5 

25 

3 

25 

« 

25 

5 

25 

6 

25 

7 

25 

5 

25 

9 

25 

10 

25 

11 

25 

12 

25 

13 

25 

1» 

25 

15 

25 

It 

25 

17 

25 

IB 

25 

19 

25 

20 

25 

21 
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2 .  6 .  79    SUBROUTINE  UPKV 


R'JUTlMEI       UPKV 


STBDI(g) 

ENJMl»96> 
GB.TK31  > 
|NTD1(*96I 


•         JPKV 

SJBKBUTINE    JPKV 

C81MBN    /3L*7    /*9GI(16)  I     INTHK31)       , 

.   KCTCU7),    *3P»H31)»    STuPf/    NULIOl) 
C9^MBN    /BLK11/   CLENG  i    DTI.N6  # 

•  0OMY1  /    DU1Y2, 

•  CNTU(372l»    E''TFL!5)»    KCLI17).    KCTF(17)i 

•  KCSF(l7),    N"V»ll31li    S1SKl(l))» 

•  V*IM(123)       t    L^KPT(6»> 
C81MBN    /BLK18/    CICTKS)  i    CT80K8I  < 

.    C8NTK62)  |    CURBK31)       l    CYCLlOll       < 

•  EN8FI(31)  j    G*ABl(l2»>    >     SAnTIOli       > 

•  QtABI(12»)       <    G*1ABI(l2<>)    >    GUA8I(12«>    » 

•  SABCK12*)      i    TK1H3J)        »v.<jK8I(31>    , 
C8->HB\    /BYTL2/IC8N, JL2.KL2.  IOECRj *SL2{50> 

I"»TEGEP    3A»BC,UL*BC<QMABC,(.YClC  .  SA8CT,  QUABC,  Tv»< 

IMEOE"    AM9>'l<CBNTI»CNTlI#tYCLl»ENJN!,<3AABI»GA„Tl,GBi.Tl,3UABI» 

HiL«BI,o"»Bl»GClCI,5Q0I,QaB'<I/QveKI,RRBl,STBTl,S»BCI»Tr«CI»TIMEl» 

2TKiI,VBLl»*BTl,v«l\I 
EQUIVALENCE    (NUL»WSL2(  J  I  > »  (LSI . WSL2I 2)  )»  OvBk.  »Sl2  (  3  >  l« 

1  I VRlNT»»SL2(») )» (LlNK»WSL2(M )» (CVCLC. «SL2 ( 13 ) )« ( SABCT, -SL2 ( 16 ) I i 

2  I  G*ABC»»SL2  I  20  I  )'  (  31  ABC/  *SL2  l  2»  I  )«  (Qp-A6C»  »'SL2(2«  I  I » 
3(C"<TLNj«SL2I32)  )»  (ENINT.  WSL2<  33)  )>  <  InTOu.  «iSL2(3»  I  )> 
<t  ( K3PH,  «SL2 ( 35 ) I , ( 0C 1CT, WSL2 ( 36  I ) « 

5(V8T»*SL2(38I ). (UUABO«SL2(39l )/ ( J» «Sl? 1 «3 > ) > ( <« «Sl2< »• ) ) 
DI"INSI8N  liAABCCi),GUABC(»)»aMABC(<l),S»BCT(«)<3UABC(»l<VRlSY(»l, 

1  LINM5) 
D8  1  1.1.5 
LINK! I )«0 

1  C8MTINUE 

CALL  UPBYT  (K3^HI»«L2/K3Ph) 

LS1.6»nL2 

I  -LSI 

LSB.LS1.6 

6  I.I.I 

IF( I.uT.LSO)  GB  TB  7 

CALL  UPH.ICNTLl.I/LL) 

IFILL.lT.O)  G8  T8  6 

CALL  UP9YTIL'«KPTjLL»1»  IP) 

IF(  IP.uT.»)  39  T8  t> 

IF  (LINK)  IP.l  I.EO-0)  LINKUP.]  l.LL.l 

G9  T8  6 

7  CBMlNuE 

CALL  UPBYT  (CYCLI.KL2.CYCLL) 
CYCLCCYCLC*1 
J...KL2-3 
08  10  K«1j« 

CALL  UPBYT  (GAABI/J/:iAABC(k)  I 
CALL  UPBYT  IGLA8I#J»QL»BC(K| ) 
CALL  UPBYT  (8MABI»»n3MABC(<>) 
CALL  UPBYT  ISABCI.J.SABCT(K)) 
CALL  UPBYT  (GUABI.  J#GUA6C(«.)  ) 
CALL  UPBYT  (VRIMIj  J»VR.JNT(K)  ) 
J.J.I 
13  CSNTINuE 
t.EIjRN 
TNO 
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26 

? 

26 

3 

26 

» 

26 

5 

26 

6 

26 

7 

26 

8 

26 

9 

26 

10 

26 

11 

26 

12 

26 

13 

26 

1* 

26 

15 

26 

16 

26 

17 

26 

18 

26 

19 

26 
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2.6.80    ROUTINE  W 


ijtine: 


■iTN* 

SJ^RSuTl  it    WT.N* 

I^EGE*  AOfPT.AHCC    .AHIST.A^TSF.BaGl,    ,  CHSET.CICTF 

|  C alF,O->LnG,CMMAL.CvTAB.Cn0!S.CNTLN.C8NTB,CS 

J  C-uR9F,CYClC,D  .DaY-K.DCF      ,DIS      »D*ALF,  D190E 

j  CPT'.I.DS         ,0SPA    .DTLNG,  DTTAB,E.-iAST,ENCLC 

»  E*9FF,ENTFL,FLTAB,F iaRK,F"C       .F1SCF,  FmsyF  ,  FrgYS 

j  FPUF    ,FS         ,FSTFL»UahTP,Q3»TP»  GGGG 

i  GLABC.GUAbC.  MBJFL/HLIf5F,HLlUT,M1AST,HBF 

r  pat-jm,ptni2,prc»d«pwth.pnTij./  ptn 

3  PTNH2»PT»JB3,PTNa<(,PTNFP,PTN]     ,PTN2    .QMAST.QS 

J  SBAR    .SCCnT.SCDFC.SCSSI.SCS       .SCTL*. 

I  SE^SK.SHTFL.SLFOP.SlFX    .SRDIS.SS         ,SSF.    .SSSS 

5  Ti)S!Z»TbYTF.,TER-t    .ThRSH.TKI       ,  TRDLY,  TKNSF,  VwlST 

1  VRlNT.  »i1AST,,.R<BF 

INTEGER    DUMY1.0UMY2»SlC*T    .SPACE 
lMTEOE-v    «CBUE»«TEST 

INTEGER    -iR*»FS.ENTCYC»SPLIT,cYCREF,ClCINH 
INTEGER    ADvNH,CICBP.CPA9u,tVTDR/CMTNf-,STBTf/T!  IEB.IVBk 
C'-'MB1.    /M9LUS9/    SURC9M12»l»-iLDSPL(»>,Ml08FF  u),  [GATE^.  I 
INTEGER    SORBIN.  HlDSPL'ULD^F 
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11AST 

H-1AST 

S^ACE 
CJT'BN    /3L<S 
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/      F1C 
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,       *iaST 
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/       DSPA(?») 
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CS^Sn    /3L<12/    DU38).    DAY.< 

L^KSIlS)  ,       PATNI(i) 

SLCNT<29),SSF" 
C9T.9.*    /BliU"/      CLE^G 

DJMYl,    0u,"ir2,    CMLM3721.EN 

<CLU7).    KCTFI17),     KCSFIWl 

\"HARi31)  ,       SEISMS) 

C9lr9h    /3L<lb/       CHSET 

YNUMF  /        N3v'Ch 

NCRj  .         M1ANP 

\-SCT  »       \^E0 

\«ESP  ,        NSTMJ 

Ci  ,       OS 

OS  ,       RS 

C9i"-9-.    /BL<17/       ADvN-J(S) 

I»OVP(8l  /       CNTDH(12*I 

^TN-.(Sl)  ,       ITn>T(31) 

STBT^iSg),     Tlr.£8(32lj    0Y9<( 
C?">r-B\    /bL*18/       CICTF(j) 

C9STE>(62>  »       CJR9F<31> 

EN3FF(31!  «       G5GT<12»! 

jLABC(12t)       .       G3GG(12tl 

SSSS(l2*)  .       T<"(31) 

C9TB\   /BL<21/      dptn-i 

HS6UF"(1072)j    ^CEF,    TE»"(69) 
LB-TIB1-.    /i\_KZ«/    AH]ST(138).     C 

09*  I        F1TB0 

iLIDT{9b)    <   NHUAv 

S"TFL,  SROIS.  T.tRSH,  jmISTI 
CB'MBN  /oL<Z5/  AHCC(13a),  C 

DTTAB(?58l   .   0ISU71 

fLTAbiSooi   .   "RF 

\9FAL.  SBAK(69).  SECFCI4) 
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FS 
SS 

CICBP(S) 
CNTN1 
INTBU<32I 
91 

CT90F,g) 

CYCLC(31) 

GARTP(31 ) 

BUABC|12<0 

«RK8F(3l) 

F*SCF 


1AST[9] 

E-AST 
I-AST 

<9CC 
TRQLY 


SCNSl (?) 
Ciumg 


LM<PTIh») 

IGP1 

NC.D2 

N"LN< 

NiPb*t 

TBYTE 

NS 

SCS 

CPA8^.(hi 

IL2 

<L2 

STBYDI3I 
E\IM(»9*I 
oB,.TP(31  1 
l\TDJ(k9£) 

F-SYF 


DIS#    DCF. 

FSTFL  »       HLICF 

PRC90  <       PT\(7» 

3^1 

ALI17).  CMTAB(2b»li 
DHALF(i7l    i       D-80E 
19DES        /   ««l 
SCOFCO),  V9LI136I 


IB    T9    K'OO 


C9-.N9-J    /G2C»~»T/    »R<BFS(12»).  !9<12*)/IEA(3]  )»EMTCrC(3l  l« 
1     CGRP^Sl) 
CB-"-8'j    /-iISLL/    C1CIW8>,LSI.<3>.CYCREF(5) 
tB^MB'l    /BL<1/    LEV5SF  (»],  IRAURa 
C81MBN       /*C9MN/    «CCCE.     -TEST,     IR3 
C91MB.J    /PT.\C?:V    PT\«1,    PTMJ2,    PTNB3.    PT\B4 
Ce-i-9'i    /ITRSP/    IS2.IR9.IRl5.il 

01  "E^S  I  9:-.    AUT9F  (SI.CiALF  [8).TRNSF(S  I  ,  E'-CLC  (  31  I  . ->8Dt  (  1  I 
ECUIvAlE'-iCE     (MBDES^BOFI.  (LNCLC.ENTCyCI 
iiJIVALE.CL     (A-jT9F(  1  i.ACWNMf?)  ) 

£r;uivALE-.C£    (CalfiI  i.cictm?)  i 

•  SJIVAuE -C5.     (TR\SF(1  I.STriYOIJl  I 
IF(FMSYF.EJ-O)    G«    Tb    1 

jj  •  J 

F-'SYF     a 

1RAURL-.  . 

CBNTIN1.S 

!F(F-1SC>  -E  j'-.  ) 

CSVTI'.uE 

IF(DCF.VE.l)     G? 

CALL    ^IBYIlS;, 

CALL     )£T^Y(V'90E,    Jj*l.     ITBYI 

CALL    '.lT-j!     l^C.'F.Jj.LlTBI.C) 

IF( ITBI.NE.O)     G9    T9    102 

1F( ITeY.tG.C)    bB    TO    7 
t     IF(  ITdy.ECI  )    u9    TO    13 

IF( ITrYtEO.3)    j9    TB    5 

G9    T9    7 

C9NTIV0E 

ITSI    .    C 

LtVSSF |JJ*1 ).0 

!=■(  1T-Y.  <E-3l     j9    Tb    108 

CALL     "TbYIPATN^, JJ.1.2G0) 
J    C9M!  ,Lf 

CALL    Jt Tpyi J 'ftOE. JJ*1,  JTbYl 

IF  (  jTbwECj.l  )    G»    TO    b 

IF ( jTbY'LC.2)    o9    T9    7 
)    CS^TIuE 
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CALL  PT2»<lSQ,JJ*1»1 ) 
LEV5SFI Jj*l)«l 
7  CB^TINuE 
1R3  •  FMTBD 

CALL  QETBY< JSPA, IR3*i,  ITMP) 
C»LL  PTSYID^TN.i,  JJ»1,ITMP) 
C9"JTlNuE 

CALL  3tTBV(f ATNM, JJ+1,  LTBY) 
CALL  SETBY(UPTNMtJJ+ljKT8Y) 
IF(KT8YiNE.LTBV|  SB  TB  61 
CALL  &fcTBY(19DE. JJ+li 1TBY) 
IFt  ITBY.NEiO)  39  TB  2 
JS  T6  S3 
[    C9NTIWuF 
OCf  •  l 
I?ADRD.l 
MASTt.iiASTl  •  2 
•>C"QE  .  2 
CALL  nS'JB 

£3"(9R  EXIT  FUB*  hEAD^Ci  RAO  AT  411 
IF  (»TfcST)  bl  1  »  10b6#iOOO  "' 
CB^Tl^uE 

;cf  ■  .. 

CALL    jfcTaY(SC».at»Jj*2#iMS!) 
CALL    Jt TdY(bCNSt» JJ*1»N"SI ) 
»b    \-<SI     »    \iSI     ♦    1 

CALL    jf  TaYfSCC'.TiNMSIiSNI 

CALL  PTB1 (CICI^HtN-M, 1 ) 

CALL  PTH1 (HLDSHLiN\.3/S) 

CALL  °TBI (hLOB*F»N\,0«0) 

IF(\y,Sl  .LT>  ^SIjGB  TB  »5 

11   ■  •■ 

jl  •  3 

Jl*  ■  0 

CALL  IhTHP(O) 

CALL  3ETBYlNC/JJ»l/NCBJJ) 
i         C8MTINUE 

CALL  GETBYt^TN,  JU..1#PTN81) 

PTN61  •  PTvBl  .  1 

jl»  •  jl»  ♦  1 

CALL    iET8Y(PT\,  JU«1 ,  PTN82 ) 

JI»    •    Jl*    ♦    1 

CALL     jETBY(PTN,  JU*1.PTNB3) 

CALL    PTBY    (E^8FF»PTNB1*1»PT\S3) 

Jl«    ■    jl*    *    1 

CALL    GET8Y(    PT=»/    JIt*l»     !DX) 

CALL    5ETBY(CYCREF/  IOX*l »  PTNBi,  I 

CALL    PTBY(CYCLC,PTsBl»ljPTNB«) 

CALL    PTBY(EMCLC,PT jBi*1jPTMB4) 

SSSStPT"-Bl.l  )     •    PT-UI+2) 

!)3li(«(PTNBl*ll     •    PT.(JI*3) 

QSBTlPTNBltl)    »    PTMJIi*) 

CALL    PTBY(TK"»HTN8l*l/PTM  JU«I  ) 

P\T1*    >    t.PTHBl 

09    tl    k    •    1'    * 

EMNT(PNT1<(*1)     •    °TN(JI»5) 

P\T1»     •    PNT1*    ♦     1 

Jl     •    Jl     ♦     1 
»         C9NTINi,E 

jl    •   J!    ♦    * 

IF(PTNl-2^E»0)    SB    T6    41 
?         C9^TIiuE 

II     ■     II     ♦    1 

Jl*.»»jl 

1F( II.oT.NCBjJI     39    Te    11 

S9    T9    »3 
I  C9NTI\uE 

u'JABCIPTNBl  +  11     .    PTN(JNI) 

CALL    3ETrtY(l>UAt)C(PTNBl»l  1/    *,     BA3U1 

CALL    PTtU  (CT90K.PT\Bl«l/8«tBU,  1) 

oLAbC(PTNBl*l  )     •    PTMJI*2) 

Jl»JI+7 

u9    T9    .2 

CALL    1  mTHPH  I 

CALL    HALFIL^KSI, JJ*1,LSI1 ) 

CALL    haLF(l^kSI/JJ*2»LSI2) 

LSI2    •    LSI2    •    LSU 

IFtLSl?iLT.l)    LSI2.1 

lI     ■    2«Jl 
i         CB^TIMUE 

CALL  MALF(SCTLN,LSI1+1» JL) 

CALL  HALF(PT"J»L!*1»  IPTNH) 

CALL  PTHLF lYHIST< JL+1/ IPTMH) 

Ll.«  LI  ♦  1 

CALL  *ALF(PT\,L!*1»JPTNH1 

CALL  PTHLFt AhlST* JL*1» JPTN") 

Li  ■  LI  ♦  1 

LSU  ■  LSII  *  1 

LSI2  .  LSI?  •  1 

IF(LSI2iuTiO)  u9  Tb  »6 

CALL  itTBYIbCNSIi Jj*i» ISC1 I 
bi.  CS^TlNuL 

CALL  3fc,TdY(SCNSIi Jj+2, 1SC2) 

ISC?  .  ISC2  •  ISCl 

S3  51  I I.1.ISC2 

CALL    SET8Y(SCCNT»ISCl*lI«ICN| 

CALL   paT3E\T(IC\»ii 

CALL    dKBYT(IEAjICN*1,0) 
SI    C9NTI>»uE 

CALL    &ETbY(0-.9wF»  Jj*l»  JTBY) 

IFt JTSt.EQ.O)    uB    TB    2 

CALL     otTBY("BDE     .Jj*ljIT8YI 

IFt  IT8Y.EC0)    J9    TB    111 

OB    52    k    •    1<     ISC2 
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CALL  SETBYlSCCNT,  !SCl«l,  IC-J) 
CALL  PTBI (TM\SF.IC\*1i1,1) 
ISCl  .  ISC1  ♦  1 

52  C9NTl\uE 
ii9  TB  1 

111   CBiTI\uE 

33  5»  K.l/ISC? 

CALL    GcTBYlSCOT,  I  SCI  *1 .  ICN) 

CALL    3ETBI(C"iAtF,ICN*l»<CN#ll 

IF(KCNiNE«0!    SB    T9    S3 

CALL    PTBI  <AUT8F,IC«1»1,1> 

53  C9NTJ.NI.E 

CALL    PTBI (CICINH, ICN*1#0<1  1 

CALL    PT3] (STBYD,     ICN*1»0<1> 

ISCl    •     ISCl    ♦    1 
5»  CB^TlNut 

i  CSNTI^uE 

CALL    PT8K    "CD*  i    Jj*l/    0»0> 

CALL    SlTBY(U18UE«JJ*1»JTiJV) 

CALL  PTBr(,i»DE» JJ*1» JTBY) 
13    CB^TInuE 

CALL  &ETBY(UPT\M,JJ*l,KTBYI 

CALL  PTBY  (HAT\M« JJ»1,KTBY) 

IF(SSF»»EC»OI  o9  TB  131 

SSF„  •  0 

F1SCF  •  0 

MAST (» -AST)  .  c 

09  T8  1J00 
1J1   CSNTInuE 

JJ  •  Jo  ♦  1 

IE( JJ.tE.NSTri )  G9  TB  101 

FYARK  ,  o 

IFIFPPh t JTtO)  FPPF  •  FPPF  •  1 

FISCF.o 

MASTUmAST)    •   c 

a;  tb  looo 

;      E^BR  EXIT  f»8"'  READING  RAO 
611   CS^TlMbE 

p-.aSTIQi-AST)  •  1 
SHTFL  .  1 
IOOl  C9NTI «UE 
rETLR.'l 
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2.6.81    SUBROUTINE  INTRP 


RBUTtNt:      IMTKP 


•   • 

INTRP 

t 

SUBK8UT1 

ME  I'jTRP(I) 

• 

I  •  0 

UISABLE  INTERJPTS 

«. 

■  1 

ENABLE  I^ERUPTS 

• 

DEF 

INTRP 

REF 

9SETURM 

RES 

1 

! 

RES 

1 

D»Ta 

3 

PTiPi 

RES. 

1 

IN.TKP 

RES 

Ll.3 

1 

HAL, 6 

9S£Tl^ 

GEM, 8. 

2« 

l'l 

ST»,15 

PTi"Pl 

Lw,3 

•  I 

BGZ 

ENABLE 

Ll.l 

X'lOOJ' 

hD»l 

X'1502' 

B 

•PTMP1 

tNABlF 

RES 

0 

Ll.l 

X' 1000' 

WO.l 

X'l»02' 

B 

•PTMP1 

SET  INTERuPT  FLAG 

BRANCH  TB  EUAHLE  INTeRUPTS 

OlSABUE  IMTERUPTS 


E>vAhlE:  INTERUPTS 
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2.6.82    SUBROUTINE  PATGENT 


R'JjTlNt:   patient 


•    "AT3FNT 

SJBR9JT1NE  PATUENTl INT) 

! \TEG£"   ASTRT  ,AE>>D 

]  BSTRT   ,BENO  ,BI 

p  C»     ,CSTRT  ,CEND 

3  E.-JL.AC   ,E-.*CPi  tENUBC 

U     SJMT     .SU^AC  ,SA 

5  STRTic.  ,ST«CMl  ,T68FF 

h    VARAT   »VA«8T  /VARCT 


.ATNE  «AEN0P1  «ASM1  ,AacTTME»A9FF 

,BTImE  .BENOPl  ,BSMi  ,B8FF    ,CLC 

.CENBP1  iCS^l  ,C8FF  ,DEL     . 

.E^BCPl  *ST  ,SuMTA  ,SuMTB   .SUPTC 

.Sb  ,S2T  ,SC  ,STRTAC  .STACMl 

,TC9FF  .TA8FF  .VARA  ,VARS    ,VARC 
,CTIME 
'9m  /i2c»NT/  -*rk9FS(12»>«  18(12*)<  !EA(3l  UENTCYCLCI31), 
S^LIT(12»)»  CIjRPN(31) 


S^LlTiia*)*  Ct>RPN(3l) 
C9MM8N  /PATN3/  ABCSTRTll21)»ABCENDll2»),BIAS<3l),DELTr3l  )i 

Sv|TABC(ia»).SABC(  l?»)»SU"ACBC(3l  ) 
C9~iMB'J  /BL<'  /ABullU]     <  INTHJOl)   ,  INT2K31)   » 


<LTC<17),  *3PH(Jl),  STUPF,  NQLOl) 
C9"^8N  /BL<H/   CLE*G        ,   DTLNG 
•  3JhYi,  au-irj,  CNTL>M372),ENTFl<5), 
.  <CL(17).  <CTF(17).  KCSF(17) 


NMVAR(31>    /   SE1SKI8)     ,  VARINTI123I   <   LKPTRI6A) 
CBll-'Bi  /BL<H/   CICTF(S)     ,   CT60F(_8)     i       STBY3ISI     , 

•  C0NTB(62)    >   CURBF<31>    ,   CyCLC(31)   i  ENTRvINT  ( %96 )   » 
•EmTRYBFF(31 >  <   UGGT(12»)    ,   GAwTP(31)    .   l,BhTP(3l>    « 

•  GlAbC(12»)   ,   G3GG<12»)    ,   GUAbC<12<>>   ,   INTDJ<»96>   , 
.  SSSS(l2»I    ,       T<M<31>      .   WRKBFl31> 

PURPOSEC    PATUE^T  USES  THj  FSLLBWING  ARRAYSO 

AoCSTRT  ..  A/8/C  PHASE  START  INTERVALS 

Ai-CENC  .-  A/B/C  PHASE  END  INTERVALS 

£™TCYCLC  ..  CYCLE  LENGTH  C8DE 

ENTRYINT  ..  INTERVAL  DURATIONS 

E^TRY8fF  ..  BFFSET  8F  THE  FIRST  INTERVAL 

I.THI  ..  LAST  INTERVAL  IM  THE  CYCLE 

<LL  •  -  CYCLE  DURATI8N6 

KjPi  .-  C0NTR8LLER  Type  ;:,1,2,3 

VaRInt  ..  A/B/C  PHASE  VARIABLE  INTERVALS 

TB  COMPUTE  VALUES  FBR  THE  F8LL6WING  ARRAYSO 

BIAS(Sl)  ••  TIME  F"  START  8F  A  PHASE  TB  INTERVA  23 

UELT(DEL)  ..  LAG  TIME  F8R  8VERLAPPIN3  PHASE  CBNT  20 

Ib(A8FF,B3FF,C6FF,IF8T)..  A/B/C  PHASE  9FFSETS,  PHASE  8RDE*  C*  20 
SA8C(SA,Sd,SC)  .-  A/B/C  PHASE  FIXED  TIMES  20 

SMABC(SLI"TA,SUMT8<SU1TCjSU«T)-.  L8ST  TIMES  IN  PHASES  AND  CYC  20 
SPLIT|ST,B2T)  ..  A  PHASE  AND  C  PHASE  SPLITS  20 

su'-ucaci sumac, sumbc)   ..  sum  sf  fixed  intervals  in  svfrlappj  20 

20 

INT  .  INTERSECTISN  NUMBER 

INTERVH  .  THE  LAST  INTERVAL  IN  TH£  CYCLE 

ASThT  •  A  PHASE  START  INTERVAL 

AENo  •  APHASE  ENj  INTERv'L 

VARA  •  A  PHASE  VARIABLE  INTERVAL 

BSTRT  •  a  PHASE  START  INTERVAL 

BEND  ■  B  PHASE  E^C  INTERVAL 

VAKB  •  B  PHASE  VARIABLE  INTERVAL 

LLC  •  CYCLE  LE*vGTH  CODE  Of  THE  INTERSECTION 

Cy  .  CYCLE  LENGTH  9F  ThE  INTERSECTS 
CALL  GfcTBY(INTHl,I »T, INTERVH) 
IP9SN  •  *.(INT-1  )  ♦  1 
CALL  UtTnY(ABCSTRT, IP8SN,AST«T) 
CALL  jiTBY[ABCEND, IPeSN.AENU) 
CALL  3tT'JY(VARlNT, IPuSNWARA) 
VARA  •  VARA  ♦  1 
IPOS'.  •  »•(  INT-l  )  *  2 
CALL  GETBY(A3CSTRT,IP9SN,BSTRT) 
CALL  jETBYiabceno,  JP9SMiBENt)) 
CALL  3ETBY(VARINT, 1P3SN, VARBl 
VARB  ■  VAR-i  *  1 
CALL  GETUY(tNTCYCLC»INT,CLC) 
CY'KCLlCLC.l ) 

INITIALISE  VALUES  6F  THE  SMTAbC,  S-ACBC,  L^LT 


Su~lTA 

5JMTB  a      J 

su-nc  >  0 
Sjmt  «  0 
SUMAC  .  0 
DEL  •  0 
IF8T  •  0 
S2T  .  .- 

ATIKE  • 

BTI 


20 

20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
IB,  AND  SFLIT  AR  20 


TIME  FM  START  8F  A  PHASE  TB  END  9F  A  PHASE 

-  TI"E  FM  START  8F  B  PHASE  T6  E'-O  OF  B  PHASE 

VARAT  •  TIME  BF  A  PHASE  VARIABLE  INTERVAL 

SA  .  A  Phase  FIXED  TIME 

varbt  •  time  bf  b  phase  variable  interval 

sb  .  b  phase  fixed  time 
call  sr int(int,astrt,aend#atime) 
call  s- ImT(Int,bstrt,bend,bt[me) 
ip9sn  •  16. (int. ii  ♦  vara 
c»ll  3etby|entrylnt, ip9sn.varat] 
sa  •  atime  •  varat 
i°bsn  •  16«<int  -ii  ♦  varb 

CALL  jETBYIENTRYINT, IPBSN.VARBT) 
SB  •  BTIME  •  VARBT 

BIAS  IS  THE  TIME  FR8M  THE  START  9F  THE  A  PHASE  To  INTERVAL  1. 

BIAS  IS  :.»N.ZERg  ftH£N  THE  A  PHASE  D9ES  N6T  START  AT  INTERVAL  1 

AND  VARA  <  VARb. 
BI  •  0 

If(AST«T.E!«'l)  GB  TO  10 
CALL  Sr  INT(  INT.ASTRT,  I\.TERvH,B[  ) 
C9NTI,N„E 

AENDP1  A'.'J  BtNOPj  ARE  THE  INTERVALS  AFTrR  AENO  A  ,0  HEN3  RFSPECT!  20 
AENQPl  •  AENO  ♦  1  g0 


8 
9 
15 
11 
12 
13 
11 
15 
16 
17 
18 
19 
20 
21 
22 
23 
20 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3» 
35 
36 
37 
38 
39 
"0 
"1 
»2 
»3 
»d 
*5 
06 
»7 
»8 
»9 
50 
51 
52 
53 
5k 
55 
56 
57 
58 
59 
60 
M 
62 
63 
6* 
65 
66 
67 
68 
69 
70 
71 
7? 
73 
7» 
75 
76 
77 
78 
79 
80 
"1 
82 
83 
8* 
85 
86 


19 
9P 
91 
92 
93 
9» 
95 
96 


140 


IFIAENOPI.LE^INTERVH)  08  T»  ?0 
AENDPl  •  AENDPl  .  ISTERVH 
BENDP1  •  BEND  +  1 
IFIBEN'DPl.LE. INTERVH)  G9  TO  21 
BENDP1  •  BENDP1  •  INTERVH 

»S"1  AMD  OSMj  ARE   THE  [NERVALS  PRECEDING  ASTRT  *s,t>  BST^T  RESPE 
aS"I1  •  ASTRT  •  1 
IFIASM)  .liE.l  )  08  TB  22 
AS-il  •  ASM1  *  INTERVH 
bSll  •  8STRT  .  l 
IFiBSHi. JE.l)  a»  TB  23 
BSll  >  BS*1  ♦  INTERVH 
CSNTINoE 

»3Pmt  •  THE  VALUE  OF  K3PH  FOR  THE  INTERSECTIBN 
CALL  SETBY(K3PH,INT»K3PHT) 
IF(k3PhT.N£»0)  GB  TB  »0 

THE  FALLOWING  CalCULATIBNS  ARE  FB«  A  <3P«  ■  0  TYPE  C9NTR9LLE* 

Sl/MTA  •  L»ST  Tl-lt  BETWEEN  A  AND  6  PHASES 
IF(AENiPl.EU.BSTRT)  SB  TB  30 
CALL  Si.  I  NT  (  INT»AENJP1«BS^1/St;-1TAI 

SLMTc  .  L»ST  Trt  BETWEEN  3  AND  A  PHASES 
IFIBENJPI.EJ. ASTRT)  59  TB  31 
CALL  SMNT(  INT.BENuPl.ASMl.SjITB) 

SUMT  •  ThE  T9TAL  L9ST  T1"E  IN  THE  CVCLE 

•BCTME  •  The  T9TAL  PHASE  TIME  IN  a  CYCLE 

ST  .  A  PhASE  TME  TIfES  1030  /  THE  T9TAL  PHASE  T I  »E 
SJ^T  .  CY  .  ATImE  -  BTI1E 
aBCTIme  .  CY  .  SUIT 

st  •  atime«i;o;/abctime 

VARC  ■  0 
SC  ■  J 

IFBT.0  IF  THE  A  PHASE  VARIABLE  INTfPvAL  PRECEDES  THf  ti    PHASE  V»R 
IF9T  •  0 
IFIBSTkT.NE.l 1  GB  TB  80 

IF9T.1  If  THE  B  PHASE  VARIABLE  !NTfPvAL  PRECEDES  THE  A  PHASE  VAR 
IFBT  .  1 
BI»U 
GB  T9  hO 


*1 
*2 


C. 
Ci 
Ci 

C. 
C.»»< 

c... 
c... 


50 
SI 


56 
57 

SB 

C 
C.n 


1*2,3  TYPE  CfNTRBLLE^S 


CALCULATIONS  F8R  <3PH 
CONTINUE 
IP3SN  >  *«(INT«1 )  .3 

CSTRI  ■  THE  C  PHASE  START  INTERVAL 

CEND  •  THE  c  PHASE  END  JnTfRvAL 
CALL  GETt)Y(ABCSTKT,  IP8SN, CSTRT ) 
CALL  UETBYlAHCEND, IPBSN.CEND) 

CENDP1  •  THE  INTERVAL  F9LL9"ING  CEnD 
CENDPi  .CEmD  ♦  1 
IF(CENDPl.LE.INTERvH)  G8  T9  »1 
CENDPI  •  CENDPI  •  INTERVH 

CSH1  •  ThE  INTERvAL  PRECEDING  CSTRT 
CS"1!  .  CSTRT  .  1 
IF (CSf 1 .CE.l )  J8  T9  *2 
CS"H  •  CSMi  ♦  INTERVH 
CBNTI'J^E 

CTML  •  TH£  TIME  BF  C  PHASc 
CALL  Si INT(INT,CSTKT,CEND/LTIME) 
G9  T8(<i5»6u»70)»K3PHT 

THE  F9LLBWING  CALCULATIBNS  ARE  F9R  A  K3PH  ■  J  TYPE  C9NTRBLLE* 
SU^T  •  L8ST  TIHf  DjRIM  THt  CYCLE 
ABCTIiE  •  THE  TBTAL  PHASE  T I  ME  IN  the  CYCLE 
ST  •  TH£  A  PHASE  SPLIT 
S2T  •  THt  C  PHASE  SPLIT 
VARC  •  C  PHASE  VARIABLE  INTERVAL 

VARCT  •  TH£  TIME  LENGTH  BF  THE  C  PHASE  VARIABLE  INTERVAL 
SC  .  C  PHASE  FIXED  TIME 
SJiT  ■  CY  -  ATIrE  •  BTIME  •  cTIME 
A3CTIHE  .  CY  .  SUHT 
ST  •  ATIHE#l?Ou/ABCTIME 
S2T  •  CTlHE'lOOO/ABCTlHE 
IP3SN  •  4.( INT-1 )  ♦  3 
CALL  GETBYIVARINT, IP8SN»VARC) 
VARC  •  VARC  ♦  1 
IP3SN  •  16. (INT. 1)  ♦  VARC 
CALL  CiETBYlENTRYlNT.  IP9SN,VASCT) 
SC  .  CTIHE  -  VARCT 

IF  ThE  Phase  BRDER  IS  ABC  C9NTINUE 
IF  ThE  PHASE  8RDE"  IS  ACS  G8  T8  55 
IFI VARb.GT.VARC)  G6  T9  55 

IF9T.0  IF  THE  B  PHASE  VARIABLE  INTERVAL  PRECEDES  THE  C  PHASE  VAR 
IFBT  .  0 

LBST  TIME  BETWEEN  A  T9  Bi  B  T8  C.  AND  C  T8  A  PHASES  ARE  CBMPUTED 
AS  S„MTA,  SUMTB,  AlvD  SUHTC  RESPECTIVELY 
IF(AENup1iE:J>BSTRT)  G8  T9  50 
CALL  SrlNT( lNT»AENGPl»bS11#Su1TA) 
IFIBENjPl.EU. CSTRT)  G8  TB  51 
CALL  SMNT(1NT<BEN0P1.CS11/SJMTB) 
IFICE'JlPi.EU.ASTRTi  UB  T9  56 
CALL  Si  INTc  I->IT,CENDP1»ASH1,SUMTC) 
G9  TB  38 

IFBT.l  IF  THE  C  PHASE  VARIABLE  INTERVAL  PRECEDES  ThF  B  PHASE  VAR 
IFBT  .  1 

LBST  TIKE  BET.EE'v  A  T9  C»  C  T8  8.  6  TB  A  PHASES  ARE;  CBIPuTED 
AS  Sl-XTCi  SlTTA,  AMD  SJMTB  RESPECTIVELY 
IF(AENLPl'EU.CSTRT)  38  TB  56  / 

CALL  SMlNT(lNT»AENOPt»CSHl»Su"TA)  ' 

IFICENDP1.EU.BSTRT)  88  T8  57 
CALL  SHINT(lNT»CENDPl»BSMl«SuMTC) 
IF(BENLPl.EU.ASTRT)  GB  T8  58 
CALL  SnlNT(lNT«BENDPl/ASMl,SuHTB) 
CBNTINuE 
G9  T9  80 

THE  F9LL8"ING  CALCULATIBNS  ARE  F9R  A  «»H  •  2  TYPE  CBNTRBLLE* 


S3 

99 

20 

105 

20 

101 

20 

102 

20 

103 

20 

10* 

20 

ns 

20 

106 

20 

107 

20 

108 

20 

109 

?i 

110 

20 

111 

20 

112 

25 

113 

2^ 

110 

s; 

115 

20 

116 

23 

117 

20 

118 

21 

119 

20 

120 

20 

121 

20 

122 

20 

123 

2J 

12* 

20 

125 

20 

126 

20 

127 

20 

128 

20 

129 

20 

130 

20 

131 

25 

132 

2  0 

133 

20 

ISA 

20 

135 

20 

136 

20 

137 

2  0 

13" 

2: 

H9 

20 

1*0 

20 

1M 

20 

1*2 

20 

1*3 

20 

1«« 

20 

1*5 

20 

1*6 

20 

1*7 

20 

1*8 

20 

1*9 

20 

150 

20 

151 

20 

152 

20 

153 

20 

15* 

20 

155 

20 

156 

20 

157 

20 

158 

20 

159 

20 

160 

20 

141 

20 

14? 

20 

143 

20 

16* 

20 

165 

2D 

166 

20 

167 

20 

168 

20 

169 

20 

170 

?c 

171 

20 

172 

20 

173 

2C 

17A 

20 

175 

20 

176 

20 

177 

20 

178 

20 

179 

20 

180 

20 

181 

20 

182 

20 

193 

20 

in* 

20 

155 

20 

116 

?0 

187 

20 

183 

20 

1«9 

20 

190 

2C 

191 

2. 

192 

2  0 

193 

2  0 

19* 

20 

195 

2C 

196 

20 

197 

20 

198 

20 

199 

2  0 

200 

2J 

201 

20 

202 

20 

203 

8(1 

£00 

141 


71 
72 


continue 

if  astrt  •  cstrt.  the  start  8f  the  a/c  phase  •  astrt. 

IF  CSTRT  IS  <6«.  VARA,  TM£  START  SF  THE  A/C  PHASE  •  ASTRT 
ST*TAC  ■  ASTRT 
.    STACl-1  •  STRTAC  MINUS  1  INTERVAL 
STACMJ  .  AS11 

IF(aSTKT.El.'>CSTBT)  39  T8  62 
IF(CSThT.LL'VAWA)  38  TB  61 

THE    FBLIBMMj    E31.ALITIES    H8LD    »HEN    The    a/C    PHASE    BE5HS    .ITH    CST 
SHTAC    ■    CSTRT 
STACH1    .    CS*1 

IF    C    PHASE    LEADS    A    PHASE    ThEN    DEL    •    DEL    ♦    1?S 
CALL    SM'.Tl  INT. CSTRT, ASH1.DED 
DEL    .    DEL    ♦    l?s 
G8    T8    62 

DEL    •    THE    THE    FRBm    The    A    PHASE    STaRT    T9    The    C    PhASF    START 
CALL    S.'.I  <T(  INT,  ASTRT,  CS*1j'JEL  I 
C9NTIN..E 

IF   AEND    IS   >.'R.   CENO»    The    a/C   phaSf    E\d    •    aend 
EVJAC    •    AF-'ND 

ENACF1    •    END*C    PLUS    1     INTERVAL 
S>»CPl     •    AE^DPl 
IFIAENO. GE.CENJI    3B    TB    63 

IF    Ct'NU    IS    GREATER    THAN    AEND,    THE    a/C    PHASE    E^U    ■    CFNO 
ENJAC    •    CE NU 
r\'CPl     ■    Ct^OPl 

ATHt    ■     THE    8F    a/C    PHASE 
C»LL    SMNTiINT/STRTAOE^DAL.aTIME) 

SuMTa    •       The    L8ST    T I  "IE    FRB-;    TH£    A/c    PhaSF    T9    The    9    PHASE 
IF(ENAC°1 .lu.BSTRT)     69    T8    6* 
CALL    Si-  I'iT(  I  NT.  ENACPl  .  BS"1 .  SjYiTA  ) 

SU">Tc    ■    The    L9ST    T 1  l-E    FRO*-    THE    3    PhaSE    TB    THE    A/C    PHASE 
IF(BE\l.d1  .E  J.STRTACI    GO    TB    6S 
CALL    Sf  I\T(IMT,BENCPl/STAC'-l,SuvTBI 

suht  .  the  lbst  tmf  per  cycle 

»UCT1"E    ■    PH«St    THE    PER    CvCLE 
SLmac    ■    A/C    PHASE    FIXED    T I  ••■  e 

sc  .  c  phase  fixed  the 
st  •  a/c  phase  split 

Sj-"T  .  CY  -  ATHE  .  8THE 
ABCTHE  .  C  -  SuMj 
S.'-AC  .  ATI-IE  •  VAnAT 
IC    .  CTI1E  •  VARAT 
ST  .  AT  I  1E»100C/ABCTHE 
j3  TB  si, 

THE  F9LL8MN3  CALCULATI8NS  ARE  F9R  A  oph  ■  j  TYPE  cBNTR'.U  LEH 
C9NTI\uE 

IF  BSTRT  IS  LESS  THAM  BR  EOUAL  TB  CSTRT,  THE  tf/C  phase  START  •  BS 
ST-<TBC  ■  BSTRT 

STBC,  1  ■  STRTAC  ".INUS  1  INTERVAL 

3T3C11  •  es-^i 

]F(bST^T.E^>CSTRT )  G9  TB  72 
IFIBSTnT. LT. CSTRT )  GB  TB  71 

IF  CSTRT  IS  LFSS  Tha\  BSTRt,  The  B/C  PHASE  START  •  CSTRT 
STRTbC  ■  CSTRT 
STBCM1  •  CS"1 

if  c  phase  leads  b  phasei  oel  ■  del  ♦  i?8 

CALL  S!->INT(INT»CSTRT,BSM1,DEL> 

DEL  .  ^EL  *  128 
C>9  TB  72 

->EL  .  THE  THE  PR»M  THE  B  PHASE  STaPT  TB  THr  C  PhASF  START 

call  si'Int(i\t/Bst<<t,cs»H#deli 

CBNTINuE 

IF  \jt_tu    IS  aKEATEB  THAN  3R  E'iUAL  Tf:  CEND,  THE  B/C  PHASE  E''D  •  BE 
FNDBC  ■  BE\D 

ENDBCP1  •  ENDBC  PLUS  1  INTERVAL 
ENBCP1  •  SEN0P1 
IF(BEN...'iE.CENU)  3U  TB  73 
.   IF  CtND  IS  GREATER  THAN  BEND.  THE  t/C  PHASE  END  .  CFND 
ENJBC«  CENO 
ENdCPl  •  CENDP1 

ttTIrtE  ■  THE  TIHE  8F  THE  B/c  PHASE 
CALL  S.»lNT(lNT,STRTBC,ENDBC,RTHE  I 

SuiTA  •  LB5T  THE  BETWEEN  A  PHASE  T6  a/C  PHASE 
IF(AE.NlPI.EJ.STRTBC)  G9  TB  7k 
CALL  SMNTlINT.AEMDPl.STBCIl.SUHTAI 

SUHTt  .  L"ST  THE   BETWEEN  B/C  PHASE  TB   A  PHASE 
IF(  AS-ll  .EG.EN'DUC  I  GB  TB  75 
CALL  Si-  INT  (INT.ENBCPl.ASIl.SuMTB) 

SUIT  •  ThE  TBTAL  L9ST  THE  PER  CYClE 

ABCTHE  •  The  TBTAL  PHASE  THE  PER  CVCLE 

SUMAC  .  HE  B/C  PHASE  FIXED  THE 

Sc  •  THE  L  PHASE  FIxED  T  He 

ST  .  THE  A  phase  SPLIT 
SJ-IT  •  CY  •  ATHE  •  BTH£ 

abcthf.  ■  cy  •  su^T 

SjIAC    .    BTHE    -    VARBT 

SC    •    CTHE    -    VARBT 

ST    •    ATHE»lCCC'/ABCTHE 

CBNTlNuE 

CALL  GETBY(ENTKYBFF, INT.ABFF ! 

THE  A  PHASE  BFFSET  IS  CBHRfCTED  BY  SUBTRACTING  ThE  PIA30 

BIAS  •  THE  THE  FRSM  THE  START  9F  A  PHASE  T9  INTERVAL  1 
A8FF  •  ABFF  •  ol 
1F1ABFI-  >uE.O)  G9  TB  SI 

ABFF  IS  ADJUSTED  TB  oE  GREATER  THAN  Q 
ABFF  •  ABFF  »  CY 
IFIABFF.LT.CY)  GB  TB  82 
A3FF  •  ABFF  -  CY 
CBNTlNoE 

S6FF  •  ABFF  .  THE  TIHE  FKBm  A  PHASF  TB  B  PhASE 
CALL  Si  I  JT( INT, ASTRT, BSM1.TBBFF  I 
LSFF  .  TrtBrk  ♦  ABFF 
1FIB0FF .LT.LY)  SB  TB  83 
BBFF  ■  BBFF  •  CY 


20 

205 

2C 

206 

2: 

207 

so 

208 

so 

209 

20 

210 

20 

211 

20 

212 

20 

213 

20 

21» 

20 

215 

20 

216 

20 

217 

20 

211" 

20 

219 

20 

220 

20 

221 

20 

22? 

20 

223 

20 

221. 

20 

2?5 

20 

226 

20 

227 

20 

228 

20 

229 

20 

230 

20 

231 

20 

23? 

20 

233 

20 

23» 

20 

235 

20 

236 

20 

237 

20 

23« 

20 

239 

20 

2">0 

20 

2*1 

20 
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26? 

20 

269 

20 

270 

20 

271 

20 

27? 

S^ 

273 

SO 

?7» 

so 

275 

2v 

276 

20 

277 

20 

2'8 

20 

279 

20 

280 

20 

281 

20 

28? 

20 

283 

20 

28* 

20 

285 

20 

286 

20 

287 

20 

280 

20 

289 

20 

290 

20 

291 

20 

2<*2 

20 

293 

20 

291 

20 

295 

20 

296 

20 

297 

20 

298 

2U 

299 

20 

300 

20 

301 

20 

302 

20 

303 

20 

30<t 

2C 

305 

20 

306 

SO 

307 

20 

309 

20 

309 

20 

310 

142 


CSNTlNuE 
.  C8FF  •  AaFF  • 
C3fF  •  0 
IFIk.jPhT.EJ'0) 
OIL  SKI  >T(|MT, 
C9fF  •  TC8FF  ♦ 
inC8FF.LT.LY) 


THE  TIME  FR9M  A  PHASE  T9  C  PHASE 

Q8  T8  g» 

ASTRT,CSK1.TC9FF) 

A8FF 

G8  T8  8* 


C9FF  •  CUFF  •  CY 
6*     CSMTlNuE 
C....    IF  KjPH  •  o  AND  IF9T  •  1.  A9FF  AND  BPFF  ARE  INTERCHANGED 

1FIK3PHT.NE..0.BR.IF8T.EQ.0)  S9  T8  85 

B8FF.ABFF 

CALL  SMNTlINT.BSTRT.ASMl.TABFF) 

A9FF«88FF*TA8Ff 

IFIA8F* .LT.LY)  G8  T8  85 

A8FF«A;|FF.CY 
85    C9NTINi,E 
Ct...    CBMPfTED  RESULTS  ARE  PAC«E3  INT8  ThE  18,  SHTABC.  SARC.  SPLIT. 
C  SMS,  ANO  OELT  ARRAYS 

CALL  PTBYIdfAS. INT.BI ) 

CALL  PTBY[jE;lT»  JNT.DEL) 

CALL  PTBY(SU*!AC8C»  JNT.SUMAC) 

I^BSN  .  2. INT  -1 

CALL  PTHlFiSPlIT.IPBSN.ST! 

IPBSN  •  2.1M 

CALL  °THLF (SPLIT. IPBSN.S2T) 

IPBSN  ■  4.JNT  .  3 

CALL  PTBYl IB, IP9SN.ABFF) 

CALL  PT9»(S"TAbC.  IP9SN.Sl.lMTA) 

CALL  PTBY(aAHC. IP9SN.SA) 

IPBSN  •  *»INT  -  2 

CALL  PTBYl IB, IPBSN, B8FF) 

CALL  PTBYlSlTAJC. IPBSN, SUMTB) 

CALL  PTBY(SABC. IP9SN.SB) 

IP9SN  .  *.)NT  -  1 

CALL  PTBYl ]B, JPsSN.CBFF) 

CALL  PTBYlS-'TAOC, IPBSN, SUMTC) 

CALL  DTBY(SABC, IP9SN,SC) 

IPBSN  .  »«INT 

CALL  PTBYl IB, JP8SN, IF8T) 

CALL  PTBYlSiTAdC, IPBSN, SUMT) 

CSNTlNuE 

RE 'URN 

EN'J 


so 

311 

23 

312 

23 

313 

20 

310 

20 

315 

20 

316 

20 

317 

20 

318 

20 

319 

20 

320 

20 

321 

20 

322 

20 

323 

20 

32* 

20 

325 

20 

326 

20 

327 

SU  20 

328 

20 

329 

20 

333 

20 

331 

20 

332 

20 

333 

20 

33l> 

20 

335 

20 

336 

20 

337 

20 

338 

20 

339 

20 

3»0 

20 

3M 

20 

3*2 

2: 

3*3 

20 

304 

20 

3*5 

20 

3*6 

20 

3*7 

20 

3*8 

20 

3*9 

20 

350 

20 

351 

20 

35? 

20 

353 

20 

35* 
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2.6.83    SUBROUTINE  SMINT 


RduTl  ill       S^IMT 


SmT.T 
SjOMHjtI'.E    S«I,.TIIWL>«1<i 
CSIMBN    /8L<'    /*9U!  (  16) 

.    KLTC(l7)tK3PHl(31  XSTUPF; 
C?v,l'9».    /13LK1*/       CICTF(B) 

•    CM6lfc2) 


CUfiBFl Jl) 
uH&T(l2»l 
BG56(1E») 

TKM31  ) 


•  EN6FP131I 

.    iLABCl 124) 

•  SSSSlia*) 
1S1«C 

C»LL    oS.ToY(  InTm],  ICj  JH) 

IL-KL 

JH.KH 

IFUL.lE.O)     IL»IL*J« 

IFIHtuE.O)     IM.IH*jh 

|ri]Liul.J«l     1L.IL-JH 

IF( IM.uT. Jc)     In.IH.jH 

I'll. 

jC»16.(  IOl  ) 

jOX.jc.1 

CALL    itTaY(ENI\T. JOX. JS^I 

IS"l.ISe+jS-« 

IF(!«Eu.IH|     RETUMN 

I"l*l 

IFCI.5T.JH1     I.J 

iS    T8    1C 

EN'J 


IS- I 

»     ISTHK31)       ,     | 

'JUL  (31) 

CTODFm 
CYCLC(31I 
GA*TP|31 ) 
CjUABCi  12t  ) 
HKBF (31 ) 


ST* 
EM 


MK.96) 

Tp(3) I 

Dj(»=>6, 


21 

1 

21 

? 

?1 

3 

?1 

4 

21 

5 

?i 

k 

si 

7 

21 

R 

SI 

9 

21 

1C 

?1 

11 

Si 

1' 

SI 

13 

Si 

1» 

21 

15 

21 

16 

21 

17 

21 

1? 

21 

19 

21 

20 

21 

21 

21 

22 

21 

?3 

21 

?<t 

Si 

25 

21 

S6 

21 

?7 
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2.6.84    SUBROUTINE  WCODE 


ReUTISE!       *C« 

•>E»*TEST( 

IS 

3 

. 

»C3Dt  <  %T£ST 

.ISJ 

DE* 

-CB3t 

0E( 

-TLST 

DEF 

IK'S 

„C8».N 

DSiCT 

»C»OE 

"E3 

3 

OAT* 

»TtST 

DATA 

;i 

1»J 

DATA 
ENL 

1 

WT\»    A'nD    «SJd    CBH'SS 
DLTFoyIMS    r\TWA\CF 


SET    By    "SUo    FS«    TESTIV1    'iv    ST\. 
INDEX    T9    «AO    STA-,TIN3    aDOESS 


10 

1 

10 

2 

10 

3 

10 

<f 

10 

5 

10 

6 

10 

7 

1C 

S 

10 

9 

10 

10 
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2.6.85    SUBROUTINE  WSUB 


•    •    "SUB 

DEF  -SUB 

KEF  DPATfcUM 

KEF  DSPA 

KEF  ENDACT. 

KEF  neuFL^i 

KEF  HSbUF 

KEF  IR3 

»EF  JJ 

KEF  LFDPN 

KEF  NUMSCT 

KEF  PTN 

KEF  SHTPLS 

REF  SLFDPN 

KEF  -C8DE 

KEF  fcTEST 
.vSUB       KES 

LCI  0 

STh.o  SKESS  S*VE    REGISTERS 

1.1.1  0 

ST»>1  "TEST         ClE'R  rfTEST 

L*,  1  "C8DF 

CI/1  1 

B.*E  "61 

Lk,3  103  <0B*-1>»96*FhT9D 

lb,*  uspa,3     disc  starting  pbint  address 

LI, 2  J  INDEX  FBR  SECBND  h*LF  9F  «9R3 

CH,»  ADFPT*6»2 

BE  EXIT  IF  EQUAL  OS  TB*  EXIT 

STh/»  A(JFPT»6»2 

CAul»l  ADFPT 

LI/1  1 

ST*,1  -TEST         "TEST  .  ♦  9R  .  FBK  TESTING  BY  RTV. 

B  EXIT 
. 

.61        PES  0 

L"»3  UJ. 

Lo,5  DPATnUM.J 

Ma, 5  NuMSCT 

A„,S  3 

l*,k  LFDPN, 3  R»  ■  ''6.  OF  BYTES  IN  PATTERN 

LB, 11  SLFDPN, 5  Rl 1  •  FILE  KEY  FBR  PAT\U* 

LI, 2  1  INDEX  F9K  RIGHT  iALF  BF  »»KD 

ST*, 11  PTNFPT*6«2 

S>Th»4  PTNFPT*5,2 

Cal1,1  PTNFPT  READ    PTN 

EXIT  RES  0 

LCI  C 

Lrt.O  SREGS  REST9RE  REGISTERS. 

b  .15 
• 

PTNFPT     UEN«8»2*  X'10'*FOpTN 

GEN, 4, ». 2, 22  *l5, 1.3,0 

DATA  RaD£R«,RaDEK*        ERR9R  AND  ABNBRiAL  ADDRESSES 

Data  ptn 

DATA  2080 

DATA  C 

DATA  ENDACT* 

DAT 

FS^TN      GEN, 8, 2*  7,1 

DATA.l  5,0,9*0 

D.ATA  0,0,0 

TExT  >PTN      • 
.   FILF  PBINTER   FBR  READING  FRBH  RAD  INT9  HSBUF 

ADFPT      GEN,8,2»  XUO'.FOKDW 

GEN, 4, 4.2, 22  15,1,3,0 

DATA  KADER*  EKR8R  ADDRESS 

Data  naDER*  aBn8R"AL  ADDRESS 

DATA  HSBUF  SUFFER  ADDRESS 

DATA  hbuFLNG  BYTE  C9UNT 

.  FBkCE  READING  6F  HSBUF  At  START  UP 

DATA, 2  C. 

Data, 2  -i  granule  number 

DATA  ENDACTh 

data  o 

PjKD*      GEN, 8.2*  7,1 

DATA,1  5.0.9.C  D4 

DATA  0 

Data  o 

Data  5 

TExT       'HSBUF 

raJEK*    Cali.2  KADERK 

LI.l  -1 

ST„,1      -TEST         NEG  FBR  ERR9R 

B  EXIT 

RAUEKR     GEN»8,2»  2,0 

GEN,8,2»  8,0 

DATA  RADHfcSS 
KADMtss    TExTC      '    RAD  KE»D  ERR8R  ... ATTEMPI NG  SHUTDBkN' 

sregs.         data  o»o*o«o»o»o»o»o        registers  o«7 

data  0»d»0'0»0»0»0o  registers  0-15 

END 


9 

1 

9 

2 

9 

3 

9 

4 

9 

5 

9 

6 

9 

7 

9 

« 

9 

9 

9 

10 

9 

11 

9 

12 

9 

13 

9 

14 

9 

15 

9 

16 

9 

17 

9 

18 

9 

19 

9 

23 

9 

21 

9 

22 

9 

23 

9 

2« 

9 

25 

9 

26 

9 

27 

9 

28 

9 

29 

9 

30 

9 

31 

9 

32 

9 

33 

9 

34 

9 

35 

9 

36 

9 

37 

9 

38 

9 

39 

9 

*o 

9 

»1 

9 

»2 

9 

"3 

9 

44 

9 

45 

9 

46 

9 

"7 

9 

48 

9 

»9 

9 

50 

9 

51 

9 

52 

9 

53 

9 

5* 

9 

55 

9 

56 

9 

57 

9 

58 

9 

59 

a 

60 

9 

61 

9 

62 

9 

63 

9 

6I> 

9 

65 

9 

66 

9 

67 

9 

68 

9 

69 

9 

70 

9 

71 

9 

72 

9 

73 

9 

74 

9 

75 

9 

76 

9 

77 

9 

78 

9 

79 

9 

80 

9 

81 

9 

82 

9 

83 

9 

8  4 

9 

85 

9 

86 

9 

87 

9 

88 

9 

89 

9 

90 

9 

91 

9 

92 
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Rt<jTI\|Ei 


2.6.86    ROUTINE  X 


•  -<TNx  29  1 
SJaKBJTlNE  «TNX  29  2 
CBMC'BN  /dL<6  /  F1C         >  F.MARK       ,  «ST(9)     .                29  3 

•  -HAST  /  J<AST  <  KMAST  ,  E"AST  ,  29  * 
.  -H1AST  /  kMAST  »  QMAST  «  ItfAST  i  29  5 
.  S^ACE           ,  1P8KY                                                29  6 

W"M6\  /dLK7  /A9UII16I     »  IN!H|(31l   ,  INT2M31)   .                29  7 

•  KCTCI  ]  7),<3PhI  (31  ),STuPF,NQL(31  1  s3  s 
CB^MBN  /BL<W  CLENS       .  DTLNG       ,  C"'L\3       .                29  9 

•  DUhY]         ,  CU1Y2,                                                  29  10 

•  CNTLII372),  E-<TFL(b),  KCL(l7)»  KCTF<17)#                             29  11 

•  <CSF(l7),  NMVAK31),  SmSkKs),                                       29  12 

•  V«I\Iil23)  i  INKPT[6*)  29  13 
C9"'K3f.  /SLK17/  ADVNl(8>    «  CICBI(k)    ,  CA93IU)    ,                29  H 

•  I«DPI<*>     »  CMJ«(12»)  '  CNTNM       ,  IL2         .                29  15 

•  !NTMI(3i)          ,     INTuIOl)       <     INT8I(32)       ,     KL1                       .                                       29  16 

•  STBTII32),  TI«EI(32)»  3V8M169)  29  17 
CBiKBN    /9LK18/    CICTI  (8)          ,    CT9DII8)          <    STB0K8)          ,                                       29  1? 

.    C»NTI(62)          .    CJRB1(31)       '    CYCLK31)       «    ENIM(<t96)     /                                       29  19 

•  ENBFK31)          i     5AAdI(12A)    ,     SA»TI(31I       ,     StfwTIOl)       .                                       29  20 

•  HLABK121)  «  SMAdKia*)  >  3UABIU2*)  /  INT0M496)  <  29  21 
.    SABCIliatl       ,    TK.1I131)          #WRK8I<31)                                                                                    29  2? 

C9"iM9>;    /32C9NT/    *R<8FS(12*>,  J9(  12»>»  !EA(31  ),ENTCYC(3l  > ,  SPL I T ( 1 2»  )  ,    29  23 

1    CURPNOl)                                                                                                                                              29  a* 

C9MK8N/dITL2/BITAR[6A0)                                                29  25 

DI'ENSIBN  A'JvNH(32),A9lj<32),Ap9(32>,AUT9F(32l,CICBP(3?),             29  26 

.  r*  f  r-i-c  j  ^-.  i   ~r  *-Vc-  j-i-i.*-TMf>r-/ji.  r*M.i  e-# »«■>». ^B.anj:3M%-cc*.*c,i'*'*i           pg  27 

29  28 

29  29 

„-JIVAlEMCE                                                                                                                                                       29  30 

1 ( ADvN«,BITAH(       l)),(A93       .blTARI     33 )  )  »  ( APB       ,BITAR(    6S1).                            29  31 

21  AJTBF,3ITAr((    97))/                                                                                                                                  ?9  3? 

1 (CICBP,3ITAH(129) )» (CICEF,dlTAR(l6l) I, ( CICSF, 81  TAR ( 1 93 ) J <                             29  33 

1 (CICTF,dlTAK(2£5) ), (CT8DF,dlTAR(257) )» ( CMALF, Rl T AR ( 389 )" .                             29  3» 

3(CPABo,aiTAK(32i ) ), IFSTCF,dlTAR(353) 1, (H9L0    ,81TAR(3S5> ),                            29  35 

29  36 

29  37 

29  38 

29  39 

29  »0 

29  »1 

C8"<MBn    /8YTL2/ICBN,JL2«KL2«IDECR,WSL2(50>                                                                       29  »2 

C9-IMBN    /3E-1L9/    SEMAC(20),SEMCT                                                                                                    29  t3 

29  *« 

29  »5 

2TK1,V9L»VBT                                                             29  "6 

29  »7 

29  »8 

29  »9 

INTESER  *RnBI,tNBFI»CL|RBI#vRINI                                       29  50 

IMEIjEk  CLENU,CNTDR«EMAST,STuPF,ENTFl                                 29  51 

INTEGER  CuROF,EN8FF,vRINT,*.Rk9F,i«SL2                                  29  5? 

IN'E3E«  ENBF/CORF.nRKF                                                 29  53 

INTEGER  BITA^                                                          29  5* 

EdOIVALENCE  (YIELD, BITAR(<,17|  )                                         29  55 

0PENSI8N  YIELU(32),  INTDJI2)                                           29  56 

EQUIVALENCE  I  INTUU,*SL2(1  )  ),  (  IE  1 1 » *Sl? ( 3 >  ),  (  IE12,  HSL?  ( <t )  I,           29  57 

1  (  ISHF,*SL2<5)  ),  (  INTNM,*SL2(6)  )  ,  {  INDEX,  WSL?(  7  )  )  #  (  I  ,  «SL?(8  )  )  ,          29  58 

1  (IT.  wsi  2(9)1.  'FPs.*Sl2<10>  I,  (EPST,wSl2(U)  ),  (IR13,  *SL?(13)  )          '"  " 

INTEGER  SE1AC,SE>ICT                                            ?9  *0 

INTEGER  EPS, EPST, YIELD                                                 29  61 

•  SET  I  TB  INITIAL  CBMR8LLE*  29  *2 
J.I                                                                29  63 

2  ISHF.SfclAC(O)                                                      29  6A 

IF  (  (  ISHF.3T.  IC9-N)  .A\D.  (  I  S«F  ,LE.  i  ICB.\»32)  )  )  39  T9  »                  29  65 

33  T9  i                                                                29  66 

I«ISHF.IC9\                                                            29  67 

IEIl»lo»IS"iF.i5                                                    29  68 

I  E  I  2 »  1  F.  1 1  + 1                                                            29  69 

•  C-<EC<  TB  SEE  I<-  C9-TRBLLER  IS  IN  STA\DBY  29  '0 
IF  (HBLUI  II'MEO)  38  T9  10                                            29  l\ 

•  C?^TR9lLER  IS  IN  STANDBY  CHECK  TB  SEE  IF  AoTB^ATIC  C9NTR9L          29  7? 

•  IS  DESIRED  29  73 
TRNSF  ( I )  .  0  29  7* 
STOYD  ll)  •  0  29  75 
FSTCF  ill  .  j                                                                                                                                                 29  76 


D I  "ENS  IBM  AlJvNH(32),AB(j(32),AP9(32),AUT9F(32l,LICBP(3?), 
1 CICEF ( 32 ), C I CTF ( 32 ), CT8DF ( 32 ) .CMALF (32 ),CPA83( 32),  FSTCF  (32), 
?HBLD(3s ), IADVPI32),  I MTlS ( 32 ) ,  SEMSK ( 3? )  ,  SPLCH( 32 ) ,  STBYD  (  33  I  , 
3STSTA( j2),T"NS^ ( 32 ), C I CSF( 32) 

EQUIVALENCE 
]  (ADVN«,BITAH(   l)),(A8S   ,blTAR(  331),  (APS   ,BITAR(  6"?)), 
2(  AJTBF,3ITAr((  97)), 

1  (CICBP,3ITAK(129) ), (CICEF,dlTAR(l6l)  !, ( CICSF, 81  TAR ( 1 93 ) J < 
1 (CICTF,dITAK(g£5) ), (CT8DF,dlTAR(257) ), ( CMALF, Rl TAR ( 389 )" , 
3(CKAB3,dITAK( 32 p), (FSTCF, dlTAR( 353) 1,(H8L0  ,BITAR(3SSI), 
*(I4DVP,dITAN(i,l7)),(I\TlS,dlTAR(<»A9)>,(SEMS'<, BIT  AR  [*81  )), 
5(SPLCM,BI TAN (5131), ( STRTA, dl TAH ( 5A5 ) , , ( STBYD, BI TAR ( 577 ) ) , 
6|TRNSF,dITA*l6v9> ) 

INTEGER  ADvNM,A83,AP8,AUTBF,RpSIF,BTRNF,CICBP,CICEF,CICSF, 
1CICTF,CT8DF,CMALF,CPAB3,FSTCF,BAI,H8LD,SEMSK,SPLCH,STBYD, 
2ST-*TA,TRNSF 

CS-'MBX,  /BYTL2/ICB^,  JL2«KL2,  I DECR,  WSLg  (  50  ) 

C9MMBN  /3E'-1C8/  SEMAC(20),SEMCT 

IN1E3EK  AM9PN,C9NTb,CNTLM,LYcLC,ENlNT,GAA8C,3AnTP,uBl,TP, 
l3LABC,u'1ABC,LDSET,iJClCT,rjau,'jQRR,0ve<,RRR,STETM,SAtiCT,TEwCT,TIMEe, 
2TO,  V9L,  YBT 

INTE3Eh  AMBPI,C9NTI,CNTLI,CYCLI,ENINI,0AABI, jA*T I , 3B*T 1 , 3UAB I , 
15LABI,u"lAei,',)CICI,JQ0I,QiJRKI,QV8KI,RRRI,STBTI,SASCI,TF"<CI,TIMEI, 
STKIIiVOLI,  VBTI 


IF  (AjT8F( I ).EJ.O)  38  TB  3  29  77 

C   ••  AJT8.1ATIC  CBN.TR8L  DESIRED  CHECK  T9  SEE  IF  C8RRECTED  A  PHASE  GREEN   29  7? 

C   ••  RETURN  IS  SET  29  79 

IF  (ASCII ).E3.0)  38  TB  3  29  80 

C   ••  A33  S£T  -  SET  ISTNIM  TB  SECUNT  INTERVAL  AND  INTDJ  T8  ENTRY  29  Ml 

C   ••  INTERVALS  29  8? 

INTNM  .2  29  ,3 

CALL  P*8YT(INTM!,ISHF,INTNM)  29  ij<, 

C   •*  JNPAC<  ENI «T  J9  85 

CALL  UPBYT  (EnInI,  IEI1,  IMTJUd)  )  29  nj. 

CALL  JPBYT  (EMNI,  IEI2,  INTUU12)  )  29  87 

C   ••  PACK  InTJU  29  gj 

CALL  PKBYT( INTUI, IEIl, INTDwl I ) )  29  89 

CALL  PKBYT(INTi)I»IEIZ,INT0U(2))  P9  93 

CNTDRl IShF)*InTCU(2)  29  9) 

H8LD  ( I )  •  1  23  95 

CALL  PnBYTiSTBTI, ISHF,U)  29  93 

CALL  uPBYT(EN8f I, ISHF,EN8F)  59  9» 

CALL  PkBYT(«RKBI, ISmF.ENBF)  29  95 

CALL  jPdYTlEMTtYC,  IShF.TMP)  Sg  j!t 

CALL  P*dYT(LYCLI,ISHF,TMP)  29  s7 

IIJ«»»( ISHF-1)  29  »g 
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39    9    IJ<«1»« 
IJJpII j+IJ< 

CALL    UPBYT<I8,UJ,TKP) 
CALL    PkBYT(«RK8FS. IJJ.TMP) 
9    C9NT[NuE 
S9    T9    3 
C       •• 

c     ••  csntrbllep.  under  computer  cbmrbl 

13  AUT8F  (I)  .  o 
C   ••  STEP  DSwN  C9UNTD8w\  REGISTER 

CNTDR(  iSmF).CnTDR(  ISHF)-IDECR 
C   ••  IF  REGISTER  N8T  YET  C8UNTEU  08«N  PASS  T9  NEXT  C9NTR9LLER 

IF(CNTl)R(  ISHFI.GT.u)  GB  TB  3 
C   ••  IS  C8NTR8LLER  IS  SEC9ND  INTERVAL   IF  N9T  PASS  T9  2  ASS  ATTEMPT 
C   ••  T9  SET  YIELD  FLAU 

CALL  UFBYT  ( INTrl, IShF. INTNM) 

IF  (INTNM.EUill  69  T3  1 

l\TSM«i 

CALL  P^MVK  IST^I/ ISHF,  INTSi) 
C   ••  PASS  To  2  AND  CHECK  T8  SEE  If  TRANSITIBN  FLAG  IS  SET  .  IF  SI 
C   «•  CHANGE  INTERVAL  DURATIBNS  AN3  BFFSET 

IF  (TR^SF  (I).EE.OI  59  T9  11 
C   ••  UNPACK  NEW  INTERVALS 

C-uLUroTi   ItNISIjIEIl/ INT3U(1I) 

CALL  UPBYT  (EMNI,  IEI2.  INTUU(2)  > 
C   ••  PACK  NE*  INTERVALS 

CALL  PkBYTi I  MTU  I » 1EI1» INTDU(l) I 

CALL  PkSYTi INTUI. lEIl. INTDO(a) ) 

CALL  UP9YT(tM(>f  I.  ISHF/EN8F) 

CALL  Pk9YT(»RKBI« ISMF.EN8F) 

CALL  UPBYTlENTCYC. ISmF.TMP) 

CALL  PKBYT|CYCLI»ISMF/TMP) 

I  I J.»»( IShF-1) 

G9  131  UK  .1  .<, 

I JJ»II J>ljK 

CALL  UPBYTl  19,  IJJ.THP) 

CALL  PkBYT(1RK9FS, I JJiT^P) 
131  C9NTlNuE 

TRNSF  <  I)  •  j 
C   ••  CALCULATE  NEW  C8UNT  D9«N  REGISTER 

11  FSTCF  (I)  «  -1 

C      ••    unpack    CYCLE    lENIjTm    C9DE 

CALL    UPBYT    (CYLLI. ISHF,  INDEX) 

IN3EX«INDEx*l 

C3*F«Ki.TC<  INOEX) 

CALL  PkBYTiLURBN  ISHF.CjRF) 

CALL  UPBYTl "KK9I, ISHFinRKF! 

EPS.wRkF.kCICi Index) 

IF  (EPo.EQ.O)  GB  TB  12 

EPST  •  EPS»B 

IF  (EPST. GET)  G8  T8  13 

EPS  •  tPS  »  KCL  (INDEX) 

GB  TS  12 
13  EPST  •  EPST  •  KCL  (INDEX) 

IF  (EPST. LEO)  G8  T8  12 

EPS  •  EPS  -  KCL  (InDEX) 
C   •*  uSPACK  DURaTISN  8F  FIRST  INTERVAL 

12  CALL  UPBYT  I  INTDIt  IEI1.  INTUU  (1)1 
CNTORl  ISHF)«INTOU(  D+EPS 

GB  T8  3 
C   ••  C9NTR9LLER  SET  T8  SEND  YIELD  PULSE  •  CHECK  T8  SEE  THAT  A9G  FLAG 
C   ••  IS  SET 

C   ••  SET  C8NTR9LLER  T9  SEC9N0  INTERVAL 
1  ININM  .  2 

CALL  PkBYTi INT*I«ISHF,INTNM) 

IF  (A8b(I)  >EQ.^I  u8  TB  1» 
C   ••  CHECK  TB  StE  THAT  STANDBY  DESIRED  FLAG  IS  N8T  SET 

IF  (STBYDI I I.SE.O)  G8  T9  15 
C   ••  SE'  C8uNTD9«IN  REGISTER  TB  SEC9ND  INTfRvAL  AND  SET  YEILD  FLAG 

CALL  UPBYT  ( INTDI, IEI2»CNTJK( ISHF) ) 

YIELD  III  •  1 

G9    TB     i 
C       ..    iHHfjft    k8UTINF. 

1*  C-I«LF  (  I)  ■  1 
H6LD  ( I )  ■  3 
ENTFLI 1 )«0 

CALL  PkH/,(C»NTI,CLENG«1,  ISHF) 
CLESG.CLENG+1 
GB  T8  3 

c  ••  sTANDbY  is  desired 

lb  STBYD  I  I)  •  3 
H8LC  ( I )  •  0 
C    ••  INCREMENT  CBNTKRLLER  NUMBER 
3  C9NTlNuE 
'-  1*1 

IF( j.LE'SEMLl i  GB  TO  2 
C     SCHEDULE  RTnK 

IF  (CLENG  .GT.  0)   MAST(KMAST)  •  1 
RETURN 

£NJ 


29 

99 

29 

103 

29 

131 

29 

13* 

29 

133 

29 

13» 

29 

135 

29 

136 

29 

137 

29 

13? 

29 

139 

29 

113 

29 

111 

29 

112 

29 

113 

29 

11' 

29 

115 

29 

116 

29 

117 

29 

ne 

29 

119 

29 

I2r 

29 

121 

29 

12? 

29 

123 

29 

12* 

29 

125 

29 

126 

29 

127 

29 

128 

29 

129 

29 

133 

29 

131 

29 

13? 

29 

133 

29 

13* 

29 

135 

29 

136 

29 

137 

29 

138 

29 

139 

29 

1»0 

29 

m 

29 

1»2 

29 

1*3 

29 

ltd 

29 

1»5 

29 

1»6 

29 

1»7 

29 

1«8 

29 

1»9 

29 

ISO 

29 

151 

29 

152 

29 

153 

29 

154 

29 

155 

29 

156 

29 

157 

29 

158 

29 

159 

29 

160 

29 

161 

29 

162 

29 

143 

29 

164 

29 

165 

29 

166 

29 

167 

29 

168 

29 

169 

29 

17C 

29 

171 

29 

172 

29 

173 

29 

174 

29 

175 

29 

176 

29 

177 

29 

178 

29 

179 

29 

ISO 

29 

181 

29 

182 

29 

183 

29 

18* 

29 

185 

29 

186 

29 

187 

29 

188 

29 

189 
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2.6.87    ROUTINE  Y 


*TNY 

TITlE. 

'•••«  ROUTINE  V   STARTOF  "SuTINE  •  •• 

DEF 

RTSY 

DEF 

AUT8F 

OEF 

BASS                  BuS  C'TA  AHkAY 

DEF 

BARR9YTC                3uS  C«TA  ARhAY  6' 

DEF 

BPSYJIF 

CEF 

f:tbps 

CEF 

C«TDfcl 

DEF 

CRTDC2 

DEF 

CICEF 

DEF 

CICSCT 

DEF 

CICSF 

DEF 

CICSYS 

DEF 

CALF 

DEF 

CALF 

DEF 

COSSEC 

DEF 

CWTFL1 

DEF 

CKTFL2 

DEF 

CTLSEC 

DEF 

LTLSYS 

DEF 

CYCLC 

OEF 

DBP 

DEF 

DETDSF 

OEF 

JJ 

DEF 

L'OSP 

DEF 

D1S 

DEF 

DMALF 

DEF 

D*BDE 

DEF 

DPATSIU'* 

DEF 

OSPA 

DEF 

EMRYSFF 

DEF 

FMSECF 

DEF 

F^SYSF 

DEF 

FMTBDC 

DEF 

FiETCF 

DEF 

GABbCAbC 

DEF 

GAwTEhP 

DEF 

QbwTE.'.P 

DEF 

G^INAbC* 

OEF 

nBuFLnG 

DEF 

HHF 

DEF 

HSBUF 

DEF 

ACL 

DEF 

KNE« 

DEF 

LPBUF 

DEF 

LFDPM 

DEF 

MASK 

DEF 

1CDF 

DEF 

MI 

DEF 

MBDE» 

DEF 

NLWRD 

DEF 

NURD2 

DEF 

NMANPAT 

DEF 

NPATBYT 

DEF 

NnESPAT 

DEF 

NUmCTl 

DEF 

NUMSCT 

DEF 

NSECTMi 

DEF 

NUMVED 

DEF 

PARC8D 

DEF 

PKTFLG 

DEF 

PTN 

DEF 

RTC 

DEF 

SAVKO 

DEF 

SAVR8 

DEF 

SEMMSK 

DEF 

SMTFLu 

DEF 

SPLCHG 

DEF 

STBYO 

DEF 

SOMA8CT 

DEF 

SLFDPM 

DEF 

TT 

DEF 

TSTART 

DEF 

TiRESH 

DEF 

TImmCm 

DEF 

TKANSF 

DEF 

WHSF 

DEF 

.JKKBFF 

DEF 

r«SBF 

DEF 

*SF 

DEF 

TBYTElb 

DEF 

TBYTE 

DEF 

TBLFF15 

DEF 

CLsP»«AW8CP<RAV.SPF 

DEF 

WKKBFS.I9» IEA.EMTCYC,SPlIT,CQRPN 

DEF 

LIN<L»L!N<HT, IALPH»aiLNK,L«N8»UC?LSI 

DEF 

GC8MT«GOTSI»bRPN8/NClGRP 

DEF 

N2GCL/ NCC«» N8L» \GRPS» M CI GP 

DEF 

ABCSTRT.ABCENO.BIAS.DELT.SMABC 

DEF 

SABCjSUMACBC 

DEF 

SURC8\/HLDSPL.HLD8FF,GATE'"/GBTE^ 

DEF 

9F^P 

OEF 

CICINmjLSQ.CYLRcF 

DEF 

INTF,.mIMFC.NGRpi.  Intn,  INTNJ/LINKN 

DEF 

NAVMPAT 

DEF 

AVMPAT 

REF 

BPTlME»8PTIN»MlNCT5 

REF 

DUMAST 

22 

1 

?z 

? 

22 

3 

22 

» 

22 

5 

22 

6 

22 

7 

22 

8 

22 

9 

22 

10 

2? 

11 

21 

12 

22 

13 

22 

Ik 

22 

15 

22 

16 

22 

17 

22 

19 

22 

19 

22 

21 

22 

21 

22 

2? 

22 

23 

22 

2k 

22 

?5 

22 

26 

22 

27 

22 

?«. 

22 

29 

22 

30 

22 

31 

22 

J? 

22 

33 

22 

3» 

22 

35 

22 

36 

22 

37 

22 

3» 

22 

39 

22 

"0 

22 

»1 

22 

»2 

22 

»3 

22 

<•» 

22 

"5 

22 

»6 

22 

»7 

22 

»8 

22 

*9 

22 

50 

22 

51 

22 

5? 

22 

53 

22 

5» 

22 

55 

22 

^6 

22 

57 

22 

5R 

22 

GO 

22 

60 

22 

61 

22 

62 

22 

63 

22 

6» 

22 

65 

22 

66 

22 

67 

22 

68 

22 

69 

22 

70 

22 

71 

22 

72 

22 

73 

22 

7<t 

22 

75 

22 

76 

22 

77 

22 

78 

22 

79 

22 

80 

22 

81 

22 

82 

22 

S3 

22 

Bit 

22 

85 

22 

86 

22 

87 

22 

88 

22 

89 

22 

90 

22 

91 

22 

92 

22 

93 

22 

9» 

22 

95 

22 

96 

22 

97 

22 

98 

22 

99 
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TYf£Hl 
ALBC 


LF 

LF 


•.respat 

.ilANPJT 
NST 


TBSUE15 

VPATBYT 

«PATBYTt 

-iBUFl-.Ci 

T6"T£l5 

MOS 

\L« 

.CI 

MS* 

>C*RU 

\C««D? 

*C«RJ6» 

?NC»HD 

-iNUMdF 

C* 
J* 
F» 


REF 

REF 

REF 

REF 

REF 

PSYS 

SYSTEM 

EQU 

E.UU 

TITLE 

CNA.lE 

PR8C 

L3CAL 

SET 

SET 

08 

EQU 

ELSE 

EQU 

FIN 

PENu 

TITlE 

Euu 

EUu 

EQu 

EQu 

ESJ 

Euu 

SPALE 

EUJ 

EQu 

E30 

EQu 

EQU 

AL8C 

AL8C 

AL9C 

ALBC 

EQU 

EQU 

EQU 

EQU 

EQu 

EQu 

EUu 

EQu 

EQu 

EQu 

EQU 

EQu 

EQU 

TITlE 

SPACE 

RES 

ST*,0 

LI.R1 

LI. J 

LI. a 

SW,  1 

ST*,  2 

BDR,  1 

RO.j 

B'CS.l 
LI. 6 
LI.l 
LI, 5 
CAul.l 
CAL1.1 
CAli.1 
Ll.lt 
BAL.15 
BDR.lt 
Ll.l* 
LI. a 
BAL.15 
BOR.lt 
LCI 
LM.2 
ST*, 2 
ST*, 3 
STu.t 
STrt,5 
ST*, 6 
CAL1.1 

RES 

H.hio 

LI.RU 

ST*. RIO 

ST«,R10 

ST..R11 

ST*, 311 

LI, 11 
L"»2 

ST~.11 
CALl.8 
L«,«ll 
LI.R10 
SLO.RlO 
LB,*15 

Al4ril5 

AI,.<10 
BE 
CI, -.10 

eL 

Al.^15 
AI.K15 


FI--C 

<i-AST 

•1AST 

STRTA 

FKAu,  ,pe^.CLBSE,EWR8R 

0 

UTCSREG 

0 

TYPE*1 

■*•>•  system  prscedure  tb  set  reserve  limits 


A*.B$ 

AF  (1  > 

AF(1  ].(t.(AFI  1  )/t  )  I 

A*>0 

AF ( 1 ),>.ll 


B* 


utcs  SYSTEM  ASSFmRI v  parameters 


516 
275 
123 
3 


NUMBFR  9F  SECTIBNS 
NUMBER  8F  DETECTBRS 
NU-BER  BF  LINKS 

NUMBER  BF  C6NTR8LLERS 


(6«NL)»5 

NHESPAT.NMANPAT 
t.NPATBVT 
\PATBYTt«256»'.RE! 
t«TBSIZE15 
NO 
NL 
NCS 
NST 

(NCR/'J2)»1 
2»NCWR0 
6t»NC*R0 
2«NC*RD-2 
200 

NL.RO-1 
NUR/32 
(t.MNuMbFI-1 
NST-1 
(NSR/21.5 
7*(NSR/*1 
(NSR/*)«J 
NSR/t 

i....  RBUTINE 
2 
0 

SAVRO 
DATL* 
SUATAt 


»UATA»-l.l 
*-l 

N9REAC 

LPBUF 

2 

9PEN 

R*RAO 

READRAD 

2 

Put 

*-l 

9 

1 

PUT 

S-1 

Q* 
•1 
NSFAIl 

E90C 

NM9LI0AY 

FTAU 

FTAB.JRD 

CLBSE 

0 

2 

1 

CWT0C1 

CKTDC2 

CRTFL1 

C"TFL2 

1 
KMAST 

OuMAST.2 

TMBF» 

0 

8 

"11 

•*iF3i 

-x>FO> 

D»NE 

2 

*»2 

It 

1C 


MAX  NUMBER  BF  ENTERIES  IN  FAILTAq 

Oyna-IC  RE5ISTEW  NU"BER 
STARTUP  R8UTINE  ..... 

SET  NU"B  9F  »BRDS  T9  CLEAR 

SET  R?  F9R  CLEAR 

FINE  NUMBER  9F  CELLS  TB  BE  ZERBEP 

L89P  SACK 

READ  SENSE  SWITCHES 

u*e    INOE« 

SET  BUFFER  ADORESS  IN  Rl 

SET  R5  F9R  INTERLEAVEO  IATa 

9PE\  SMuT08«N  FILE 

RE"!NC  SHuT09*N  FILE 

READ  S-.UTD8-N  FILE 

SET  L8BP  CBuNT 

PuT  A»AY  SHUTD8*N  DAT* 

LB9P 

SET  L99P  C8UNT 

RESET  H5  FBR  NBN-INTFRLEAVFD  OATa 

PUT  A»AY  The  REST  9F  DATA 

LB9P 

GET  LAST  FE*  *9RDi 

GET  LAST  FE»  *9R0b 

NUMB  BF  FAILURES 

ENO  8F  OAY  CBUNT 

Nu«B  BF  HBLIQAYS 

FAILURE  TABLE  INDICES 

FAILURE  TABLE  INDICES 

CL8SE  DCS 


SET  CRTDC1, 
SET  C'TFLl, 


CRTDCf  •  SYS  STATUS 
CRTFL?  FaLGS  9N 


SCHEDULE  RBUTINE  «. 
GET  PRESENT  TIME 

CLEAR  RIO 

GET  HP  IN  EBCDIC 

SET  UNITS  DIGIT  IN  R|5 

MAKf  BCD 

MA<f_  BCD 

TENS  DIUIT  IS  ZERB 

TEST  IF  HR.  TENS  DIGIT  IS 

NB,  MAKE  IT  lu 

ADJ  in  FBR  T»ENTY 

ADD  TEN  FBR  10 


22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
Z2 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
IZ 
22 
22 
22 
22 

zz 

22 
22 
22 
22 

22 
22 

22 
22 
22 
22 
ZZ 
22 
ZZ 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
ZZ 
22 
22 
22 
22 
22 
ZZ 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 


100 
101 
102 
103 
10« 
105 
106 
107 
108 
109 
110 
111 
112 
113 
lit 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12t 
125 
126 
127 
128 
129 
13C 
131 
132 
133 
13. 
135 
136 
137 
138 
139 
1»C 
1M 
lt2 
Its 
ltt 
l»5 
lt6 
lt7 
lt« 
j«9 
150 
151 
15? 
153 
15t 
155 
156 
157 
158 
159 
160 
141 
16? 
163 
l't 
165 
166 
167 
16» 
169 
170 
171 
1/? 
173 
17t 
175 
176 
177 
178 
179 
1«D 
1«1 
1'? 
183 
l«t 
185 
1*6 
1«7 
188 
189 
190 
191 
192 
193 
19t 
195 
196 
197 
198 
199 
200 
201 
202 
203 
20t 
205 
206 


150 


09  N£- 

MI.R15 

» 

FBRm  NUMB.  8F  15  MIN.  INTERVALS  I 

22 

207 

LI. RIO 

XT' 

YES,  PICK  UP  TIME  (M)NUTES  8NLVI 

22 

208 

ANc,RlO 

T"BF* 

YES,  PICK  UP  TIME  (MINUTES  9NLT) 

22 

209 

LB, Rll 

TMBFt*l 

22 

210 

A1,RU 

-X'FO' 

CBNvfRT  FR8M  EBCDIC 

22 

211 

X«*w.lO 

Rll 

S»AP  REGS 

22 

21? 

MI. Rll 

10 

C8Nvf=>T  FWBM  BCD  T8  HEX 

22 

213 

Aw»mi 

Rio 

ADD  IN  UNITS  PLACE 

22 

21A 

ST*, Rll 

Svn 

22 

215 

LI. Ml 

6C 

22 

216 

LI. RIO 

0 

22 

217 

DV..K10 

6PTI1L 

22 

218 

STiv.RU 

6PTIN 

22 

219 

LI. RIO 

3 

22 

220 

Lw,Ml 

svn. 

22 

221 

D*,R10 

BPTI1E 

22 

22? 

LC.R11 

RIO 

22 

2?3 

Ax.RH 

8ptime 

?2 

224 

Ml/Ml 

60 

22 

225 

STw.RH 

MINCTb 

22 

226 

Lw.rrll 

Svil 

22 

227 

LI. RIO 

0 

CLEAR  RIO  F9R  DIVIDE 

22 

228 

DW.R1C 

■  1? 

DIVIDE  BY  15 

22 

229 

AW. 1.15 

Rll 

ADD  NUMB.  15  MIN.  INTERNALS  T8  Ri 

22 

230 

LC«,RH 

RIO 

PUT  -REMAINDER  IN  Rl 1 

ii 

231 

AI.K11 

15 

ADD  FIFTEEN 

22 

232 

MI. Rll 

60 

FBR  NUMBER  9F  SEC8NDS  UNTIL  NEXT 

22 

233 

STw.Rn 

FMC 

SAVE  IN  i5  MIN.  CBUNTER 

22 

231 

ST»,R15 

F"TBOC 

STR  NUMB,  8F  15  MIN  INTERVALS  IN 

22 

235 

LW.10 

TM8F**1 

GET  FIRST  2  CHAR  BF  «3NTH 

22 

236 

UHiH 

TMBF$«g 

GET  1ST  H«.  8F  3RD  W9RD 

22 

237 

SLS.ll 

16 

22 

238 

SLD,  U 

16 

22 

239 

•    «13 

HAS  "MBN 

I 

22 

2*0 

LI»2 

-12 

22 

2»1 

Ll.l 

3 

SET  Rl  FBR  BYTE  PICKUP  LATER 

22 

i^S 

LI.lt 

X'FFFuO' 

SET  BIT  MASK  IN  Rll 

22 

243 

CS.10 

M3NTHS«12,2 

TEST  FBR  APPRBPRIATE  MBNTH 

22 

2»<t 

BE 

•  +3 

FBUnD  M8NTH 

22 

2«5 

•  1.1 

4 

INCREMENT  BYTE  PAINTER 

22 

2»6 

siH.a 

*-3 

22 

2*7 

Lb.l5 

MSNTHS,1 

GET  M8NTH  NUMBER  FBR  AL3BRITHM 

22 

2»e 

LI»£ 

1 

SET  ?  F8R  HALF»8Rj  INDEXING 

22 

2»9 

lh.i: 

TMBF**3,2 

GET  ?NC  HALF  w8RD 

22 

250 

AN3.U 

•x'OOOOOFCF' 

MASK  ?uT  DIGITS 

22 

251 

SLJ.l. 

-6 

SAVE  UNITS  DIGIT  IN  RH 

22 

2b? 

xkjja 

11 

TENS  DIGIT  IN  RH  (BYTE  3) 

22 

253 

• 

UNITS  DIGIT  IN  Rl:  OVTE  „, 

22 

25* 

L9.10 

10 

MBVE  UNITS  CIjIT  T9  BYTE  3  BF  RIO 

22 

255 

MI. 11 

1C 

CBNvERT  T8  HPX 

22 

256 

A«,1U 

11 

FBRr-  YEAR 

ii 

257 

Al.10 

1900 

FBRm  CBmPlETE  YEAR 

ii 

25? 

CI.15 

12 

TEST  IF  M8NTH  JAN,  9R  FEB 

22 

259 

BLE 

•  ♦? 

N8 

22 

26." 

AI.10 

•  1 

yes.  Subtract  i  frbm  year  fbr  alg 

22 

261 

«   ie^i 

'H  CBlE  I" 

■  Rib.  YEAR  IN  RIO 

22 

26? 

L«.l3 

10 

MBVf  YEAR  T6  R13 

ii 

263 

SLS.13 

•s 

Y/» 

22 

26* 

A*.  1C 

13 

V«V/« 

22 

26? 

D«.l3 

•  25 

Y/lOO 

22 

266 

SmiO 

13 

Y«Y/1..T/100 

ii 

267 

SLS.13 

•  2 

Y/*nj 

22 

268 

Aw. ID 

13 

y»Y/i..y/i  „  ;.v/»  jC 

ii 

269 

AI.lJ 

2 

Y«(V/4).(Y/100)*(Y/»»0).2 

22 

2  7- 

AW, U 

15 

ADO  ?»"BN 

22 

S'\ 

Aw. 10 

15 

ADD  ?»M9N 

22 

SI? 

AIMS 

1 

F9R"  3.('18N4]  | 

22 

2'3 

MI. 15 

3 

FBRf  3»(K9N*1) 

22 

27» 

Dw,  15 

■  5 

R15«(3«(M9N»1 ) )/5 

22 

275 

A«.lO 

15 

ADD 

22 

2'6 

LM.l* 

TMBF»«.2,? 

Extract  day  bf  Me\T-i 

22 

277 

AND,  lit 

•X'OOOODFOF' 

EXT iaCT  DIGITS 

22 

27a 

SLO.l* 

•  6 

SAVE  DIGIT 

SI 

279 

xw.i* 

15 

SS 

2"0 

L8»l» 

1» 

ii 

2«1 

Ml.15 

10 

22 

2"? 

Aw.lt 

15 

SS 

2»3 

Aw, 10 

It 

22 

2»» 

LI, 11 

0 

ClEaR  Rll  FBR  DIVIDE 

22 

2'5 

X»»10 

11 

RIO  TB  Rll  FBR  Divide 

22 

£"<6 

AI,U 

1 

InCrFASE  REMAINDERS  fy  t  f«r  JTCS 

22 

2«7 

Dw,io 

.7 

DIVIDE  BY  7 

SS 

218 

CI.  10 

0 

TEST  F9R  FRIDAY 

ii 

2"? 

BG 

•  ♦2 

SS 

ii? 

LI. 10 

7 

YES,  SET  TB  7 

SS 

2^1 

ST«,10 

DAV8w< 

ii 

2J? 

CI, 10 

2 

TEST  IF  SAT  BR  SU  . 

22 

2*3 

BG 

•  ♦2 

NB 

22 

29* 

STw, 10 

H9LIDF 

YES,  SET  H9LIDAY  FLAG 

22 

295 

6 

STRTA 

CALL  EXEC  INTIALUATI9N  L98P 

22 

296 

SPACE 

2 

ii 

297 

SUBrBjT] 

NE    PUT 

Si 

2SB 

• 

Rl  MUST 

"AVE  CURRENT  JUFFER 

POINTER 

22 

299 

• 

R6  MAS  TABLE  INDEX  <m8VTAb,n 

UMMBV| 

22 

300 

* 

R5  MAS  I 

NTE«LEAVED  INDICAT9R 

(1«NB,2.YFS) 

22 

3"1 

SPACE 

3 

22 

30? 

PjT 

LH.7 

NU"M8».6 

BET  l  BF  *RLS  TB  f-8vE  •  1 

22 

303 

LH,i 

M6vTAB>6 

GET  ADDRESS  TO  STR  1MB 

22 

3  0k 

AND,  3 

•A'OOOOFFFF' 

MASK  BUT  UPPER  HALF. PRO 

22 

3-5 

Lw,» 

7 

SAVE  f. UMBER  IN  RA 

22 

306 

CI, 5 

' 

TFSt  "■    "jTroLEAVEr  9R  N8T 

22 

3"7 

bN£ 

r.TERL 

INTERLEAVED  DATA 

22 

308 

PUTl 

Lw.lO 

•1,7 

SET  DATA 

22 

309 

ST-.,  10 

•  3,<t 

22 

310 

S«,» 

5 

ADJUST  INDEX 

22 

311 

AI.7 

-1 

22 

31? 

6GEZ 

P0T1 

22 

313 

151 


AI.l 

1              csrr 

Al., 

1                         AD^A 

B 

•15                   EXIT 

INTE.RL 

i»M 

»                     DBUn 

g 

PuTl               nao 

SV11 

DATA 

- 

1'J.STHS 

DATA 

X'D1C1C50D'«X'C»C5C20E', 

DATA 

X'C1D7C'9G1,'X'0'.C1E805'. 

DAT* 

X'ClE»D3C7'»x'ClL»C706', 

DATA 

X'D6CjE30A. , x'DSD6F50B'  , 

llHtl 

GtM>8»2» 

x'IJ'.TkBF* 

Tl9F« 

DATA 

0'0'O.C 

Rn«AD 

GEN,8«2i. 

l.FHAU 

1<£AUKAj 

GEN,8»2» 

16.FRAD 

UE\.,»»*«»«1&.»       15»5»c»l»3 

DAT« 

EUROS 

DATA 

ERR8R 

CAT* 

LPBUF, 4.1800 

SPACE 

« 

f.BVTAb 

RES 

a 

DATA, 2 

ClCSF,C-ULF,C'f"ALF,DMAl_F 

DATA<2 

DIS.SECtFC.SECuFC.UfeDE 

DATA. 2 

DATE»FAlLTAB,MBLIDTBL 

BBUND 

It 

\,U^MOv 

RES 

0 

DATA. 2 

C».Cs,D*«D*<D*»''S«N*'S*, 

BjS 

DATA  INPJT  ARRAY 

B9o\D 

b 

•JA«K 

RES 

0 

AOVasCE   buffer 
ECT 
NCE    T9    NEXT 

LE  R«  FtR  I 
C"\TI\uE 

X'C4C1D903' 
x'01E»D506' 
X'E2C5D7o9> 
X'C»Ce>C3oC- 


=  .BJS    INDICAT9R    ARRAT 
RES  0 

(iEN#20»»<»»»«32  X 

GE\»20»*'«»l»'32  X 

BE  ,i20»»'»'»'32  X 

GE.\<20«»»*'  4'32  X 

GE\j20»»«*»*»32  X 

GEh/20»*»*/»'32  X 

GEn»20»»»»«»»32  X 

(jE\<20<»,'»«»»32  X 

J.BUS    INDICATOR    ARRAY 
RES  0 

GE\»20'*«»'*'32  X 

GEn#20»*»*»*'32  X 

GE*»20<»»*»'"32  X 

GE\<20'*'»'1»32  X 

CiE,\<20»»,»<'(»32  X 

6E'*.20>  *<*'»' 32  X 

GE.\«20'  »•»»*»  32  X 

QEN»20»»»*»'<<32  X 
ERRSR     INDICATOR     ARRAY 
RES                    0 

UEr.»20<»»*»4<32  X 

GEN#20'»#»»»»32  X 

GE.M<20»''»,"»'32  X 

fiEN»20«»<«''n32  X 

GE-N#iU»»»»»»'32  > 

GEt,»20»»»»»»'3Z  ) 

6£\»20«'»'»''«'32  J 

GE  .<20<»»»''»'32  J 


»0C' 
30C 
■S3C 
»0C 

soc 

30C 
'HOC 
SOC 


■SCC'i 

soc- 

80c1' 
80C'/ 
83C" 
SOC' 
80C1' 


■X'O' 
X'l' 
X'O' 
X'l' 
X'O' 
X'O' 
X'l' 
X'O' 


'1'yX'F' 
'I'.X'F' 


•*"»X'FI 
i4i, X'F' 
'2' jX'F' 
'3', X'F' 
'S'/X'F' 


SOC''X'0'/X'5'<X'F',0 
80C"X'll»x'5',X'Fi,0 
bOC'»X'0'/X'6'iX'F',0 
BOC'X'l  '»X'6'<X'F'»0 
'BUC''X'U''X'7'»X'F  < 1U 
'80C,<X'0'»X'5''X'Fl,0 
'80C''X'1'»X'5'«X'F'»0 
'80C'X'0',X'6'.X'F',0 


ftASRdiTE 

aPSVSIF 

Fc-FriPS 


-leuoss 
soNce\ 


E*u 
DATA 
DATA 
SPACE 
RES 
DATA 
DATA 
DATA 
DATA 
C*TA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
SPACE 

DSECT 
RES 

DATA'l 
DATA.l 
DATA.l 
DATA'l 
DATA'l 
DATA'l 


••(••BARR) 

1 

0 
2 

X'80030000 
X'KOOOGOOC 
X'2OOG0O0O 
X'lOOOOCOO 
X'08030000 
X'04000000 
X' 02000000 
X'01000000 
x'00800000 
X'00*00000 
x'00200000 
X'00100000 
X'00080000 
X'OOOtOOOO 
X'00020000 
X'OOOICOOO 
X'00008000 
X'COOO*000 
x'00002000 
X'OOOGIOOO 
X'00000800 

x'ooooc»oa 

X'00000230 
X'OOOUOIOO 
X'30000083 
X'OOOOOO'tO 
X'?000C02C 
X'00030010 
X'OOOOOOOB 
X'OOOCCOO" 
X' 00000002 
X'CDOGOOOl 
2 


1»'19«0»0 

123»3»0.0 

2'12»0'0 

S'0'0'0 

<.»120>C»0 

1C»121»0»0 


POINTS 

22 

311 

22 

315 

TABLE  ENTRY 

22 

316 

22 

317 

\DexlNG  INTERLEAVE 

22 

318 

22 

319 

22 

320 

22 

321 

22 

322 

22 

3?3 

22 

32» 

22 

325 

22 

326 

22 

327 

22 

328 

22 

329 

22 

330 

22 

331 

22 

332 

22 

333 

22 

33* 

22 

335 

22 

336 

22 

337 

22 

338 

22 

339 

22 

310 

22 

3»1 

22 

3»2 

22 

3»3 

22 

3»» 

22 

3*5 

FFFFFFFFi 

22 

3»6 

FFFFFFFFi 

22 

3»7 

FFFFFFFFi 

22 

3*8 

FFFFFEFF' 

22 

3»9 

FFFFFFFFi 

22 

350 

FFFFFFFFi 

22 

351 

FFFFFFFFi 

22 

352 

FFFFFFFFi 

22 

353 

22 

351 

22 

355 

FFFFFFFFi 

22 

356 

FFFFFFFFi 

22 

357 

FFFFFFFF' 

22 

358 

FFFFFFFFi 

22 

359 

FFFFFFFF' 

22 

360 

FFFFFFFFi 

22 

361 

FFFFFFFFi 

22 

36? 

FFFFFFFFi 

22 

363 

22 

Sbk 

22 

365 

22 

366 

22 

367 

22 

368 

22 

369 

22 

370 

22 

371 

22 

372 

22 

373 

22 

37* 

22 

375 

22 

376 

22 

377 

?B 

378 

22 

379 

22 

385 

22 

381 

22 

382 

22 

383 

22 

381 

22 

385 

22 

386 

22 

3S7 

22 

358 

22 

3"9 

22 

390 

22 

391 

22 

392 

22 

393 

22 

39» 

22 

395 

22 

396 

22 

397 

22 

398 

22 

399 

22 

•  00 

22 

»01 

22 

»0? 

22 

♦  33 

22 

*0» 

22 

"05 

22 

»06 

22 

»07 

22 

•38 

IZ 

»39 

22 

•10 

22 

♦11 

22 

•12 

22 

•  13 

22 

•  1* 

22 

M5 

22 

•  16 

22 

"17 

22 

MB 

22 

•  19 
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OATA.l 

120.9.0.0 

DATA 

0 

DATA.l 

7.10.11.0 

DATA.l 

U.6.U.0 

DATA.l 

9.10.0.0 

DATA/1 

3.106.0.0 

DATA.l 

15.0.0.0 

DATA.l 

16. 17, CO 

DATA.l 

13,16.0.0 

OATA.l 

15.14,0,0 

DATA.l 

103. 1*1 18.0 

DATA.l 

17, I.e. 0 

15ATA.1 

1.20.0.0 

DATA.l 

19.21.0.0 

DATA.l 

20. 23.0.0 

OATA.l 

106.0.0.0 

DATA.l 

21.98.21,25 

DATA.l 

23,98,27.0 

DATA.l 

23,72,0,0 

DATA.l 

2», 71,0,0 

DATA.l 

71.21.0.0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA.l 

32,0.0,0 

DATA.) 

31.50.CC 

DATA.l 

50.39,0,0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA.l 

33»»0»0«0 

DATA.l 

39.11.0.0 

DATa.i 

10.12.0.0 

DATA.l 

53.11.0.0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA.l 

32.33.0.0 

DATA.l 

58.52.0.0 

DATA.l 

51.53.0.0 

DATA.l 

52.12.0.0 

DATA.l 

66.67,55.0 

DATA.l 

51,68,66,58 

DATA.J 

55,93,0,0 

DATA 

0 

DATA.l 

55.51.0.0 

DATA.l 

73.81,60.63 

DATA.l 

59.85.61.61 

DATA.l 

60.86.87.65 

DATA.l 

70.73,63.69 

DATA.l 

62,59,64,66 

DATA.l 

63,60,65,67 

DATA.l 

61,61.90.68 

DATA.l 

69,63,67.54 

DATA.l 

66.61,68,51 

DATA.l 

67,65,93,55 

DATA.l 

70,62,66,0 

DATA.l 

71,72,69,0 

DATA.l 

26,75,70,27 

DATA.l 

25,76,0,0 

DATA.l 

72,77,59,62 

DATA.l 

96,75,27,0 

DATA.l 

27,74,76,0 

DATA.l 

75,72,77,0 

DATA.l 

76.73.84.0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA.l 

86.67.82.0 

DATA.l 

81.88.83.0 

OATA.l 

82.89.96.0 

OATA.l 

77,59,85,0 

DATA.l 

84,60.86.0 

OATA.l 

86.61.81.0 

DATA.l 

61.81. 88.90 

DATA.l 

87.82.89.91 

DATA.l 

8«. 83.100'D 

DATA.l 

65.87,91.93 

DATA.l 

90.  88.  94,  C 

DATA 

0 

DATA.l 

66,90.94.56 

DATA.l 

93.91.95,0 

DATA.l 

94,0,J«0 

DATA.l 

83.100.97.0 

DATA.l 

96.99,0,0 

DATA.l 

23.24.74.0 

DATA.l 

100.97,0.0 

DATA.l 

98.96.99.0 

DATA 

0 

DATA 

0 

DATA.l 

104.17.0.0 

DATA.l 

105.103.0.0 

DATA.l 

106<104.0»0 

DATA.l 

12.22.105.0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA 

0 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

?3 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

15 

36 

37 

38 

•>9 

10 

11 

12 

13 

14 

15 
16 
17 
48 

49 

SO 
51 
52 
53 

Si 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

8b 

86 

87 

88 

89 

90 

91 

98 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 


22 

420 

22 

»21 

22 

4?2 

22 

123 

22 

124 

22 

425 

22 

426 

22 

4?7 

22 

42? 

22 

429 

22 

•3- 

22 

•31 

22 

13? 

22 

133 

22 

131 

22 

135 

22 

136 

22 

137 

22 

43! 

22 

139 

22 

442 

22 

14] 

22 

11? 

22 

i«3 

22 

114 

22 

"15 

22 

116 

?2 

117 

22 

US 

22 

119 

25 

45"! 

22 

ibl 

22 

•52 

22 

153 

?2 

151 

22 

155 

22 

156 

22 

157 

22 

15! 

22 

159 

22 

160 

22 

461 

22 

16? 

22 

463 

22 

464 

22 

46? 

22 

466 

22 

467 

22 

468 

22 

449 

22 

470 

22 

471 

22 

47? 

22 

473 

22 

474 

22 

475 

22 

476 

22 

477 

22 

478 

22 

479 

22 

•80 

22 

481 

22 

482 

22 

483 

22 

484 

22 

485 

22 

486 

22 

487 

22 

488 

22 

489 

22 

490 

22 

491 

22 

492 

22 

493 

82 

494 

22 

495 

22 

496 

22 

497 

22 

498 

22 

499 

22 

500 

22 

501 

22 

502 

22 

503 

22 

504 

22 

505 

22 

506 

22 

507 

22 

508 

22 

509 

22 

510 

22 

511 

22 

512 

22 

513 

22 

514 

22 

515 

22 

516 

22 

517 

22 

518 

22 

519 

22 

520 

22 

521 

22 

522 

22 

523 

22 

524 

22 

525 

153 


DATA 

0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA 

0 

DATA/l 

5.7»0'0 

DATA,1 

6,  122/0.0 

DATa.i 

12l'123»0»0 

DATa.i 

122/2»0«0 

DATA 

0 

-ILDSPL 

DATA 

0/ O'O'O 

hLUBff 

DAT* 

0/  1.0,0 

3ATEM 

DATA 

0 

abiE-i 

DATA 

0 

8FKJP 

RES 
SPACE    2 

12* 

BL*5 

DSSCT 

0 

IP*0 

DATA 

0 

ITKDlv 

DATA 

BCCJPA.'.CY    »E 

IGHTIN3    FACT9 

113 

11* 
115 
116 
117 

118 
119 
120 
121 
122 
123 
12* 


22   526 

22   627 


V6LU-IE  AMD  SPEED  LIMITS 


JL  1  M 

bL*7 

ALL 
ABt) 


INTERv? 


<CTC 


dL*« 

11 

VDAL'** 


TTJ 

TT7 


OLK9 
DS^A 


DATA 

SPACE 
DSECT 
EQU 
DATA 
DATA 
RES 
DATA, 
DATA, 
DATA,] 
DATA, 
DATA, 
DAT,., 
DATA, 
DATA, 
DATA, 
DATA, 
DATA, 
SPALL 
RES 
DATA, 
DATA, 
DATA, 
DATA, 
DATA, 
DATA, 
DATA, 
DATA, 
DATA, 
DATA,] 
DATA/ 
SPACE 
DATA 
DATA 
RES 

DATa.1 
DATa,1 
DATA,] 
DATA.I 
DATA,] 
DATA,] 
DATA,] 
DATA,  ] 
DATA,] 
DATA,1 
DATA,] 
SPACE 

DATA 
•  ••    VJL 
DATA,1 
DATa.1 
DATa.1 
DATA,1 
DATA,l 
BBJfvD 
SPALL 
DSEL' 
DATA 

•••  NQA 

RES 

DATa.1 
DATA,] 

DATA,] 
DATA,] 
DATA,] 

DATA,] 

DATA,] 

DATa.i 

DAT»,1 

DATA,] 

DATA.1 

BBO'iD 

SPALE 

DATA 

DATA 

SPACE 

DSECT 

DATA 


,66,100.800 


X>FFFFFFFF' 

ALL«O»ALL«0.ALL.O»»L.L»P 

ALL«0<*LL.C>ALL,3<ALL.O 


.8.6 
,6«8 
.16, 
6.8, 
4/4/ 
6.8, 
8.9, 

a, 6, 

6,9, 
.8.8 
6,2, 


.0.16 
.16,8 
«1A»8 
4'4»6 
6.  <.,  2 
.9,8. 
0»  hi  6 
6,9,6 
8.6.1 
«6,4< 


9,  6,  4 
««9, 16 
6,6, 4, 8 
4,8. A 
S»9 
'16.6 
6,6 
6,6 
.0.0 
,*,6 
12*    C«MTR8LLERS 


3,*,3.3.*.0.*.0,8,7.*,3 
4,5,6,5, 5, 3« 3. 6. *. 3» */ 8 
.1»11»6,3.6«*<7»»,3«»»3,5 

7,*,5,»»*.».3'3.*.3,5,3 
3«3,3,3»7,6,*,»,3,0'5,6 
5,  *,  5,  5,  8,  8,  5,  6,  4,  4/  5,  4 

*/5»4«5»4»0'0'0«4'*»*.* 
5/5, 4,4/3/5/7/4/4/4/4/4 
5,i,»,3»0,0»5»6.»,9.0»C 

4.4«5<5»3»4»4>4,3<»»3>* 

8,0<3,C  12*    CONTROLLERS 

2 

o» n»o»o»o»o» o.o.o.o 
0.0'O.C. o»o»o 


0/2/2/2.1 
O'0'O' 
1/1.2, 
O'O'O' 

O'O'O' 

O'l'l- 
O'O'O' 
U'0'3, 
0'2'0, 
2»-«0- 


<J»?, 
0/0/ 

2»0.  1 
O'CO 
O'O'O 
O'O'O 
O'O.O 
l'O.l 
0>  J,0 
O'O.O 


1/3.0 

0/1.2 
0.0.0 
0/0' 0 
O'O/O 
O'O'O 
O'O'O 
O'O'O 
l'O'O 
O'O'O 

12*    CNTRBILERS 


i«c 

0/0 


NUMBER  8F  CRITICAL  LINKS  ••« 

, J,  s  «c,j>o,o,  *, */*>*, 1,1,*/ 1/*/ 1/0/>/0/:/?<  0,0,0 

»/O»0'0/0'0/0/0/L/ 1/0/ l'O'O'  1'.,  3/0/  l/0«  0/0 
,  1»C/ 1/0/ 1/0/?/ 0»  0/1' 0/3/ 0/2/2/2/ 0/3/ 3,0,0' 2' ?»0 
»D»3<0'2/2/l/?/»/2/C'l/C  1<  l'O/O,  1/0/1/ r,  j,'J/0«0 
,0,o»0/0/0/0/3/0/l'C/0'0»0'l'*'J»3 


NUMBER         8F       DETECT    ASSIGNED    T6    LIN<    ••• 


3< 
1» 
3. 
2»1 
1,1 
3/ 
3, 
3» 
1' 
1' 


,1,2, 1,3/2,1, 2, 3/2 

1.2.2.3.2.3,2.2/2/2 
l'l<l/l<l'l<l'3/3/l 
1.3.3.1.3.1.1.2.3/2 
»3»3«3»2'3. 1»3'1»1» 
13/3/1/3/3/1/1,1/1/ 
3/3.3/ 1/3/3.1.1.1/3 
3,3.3.  1.3.3.3' J. 1.3 
1/3/1/3.3.3,3,3.1.1 
3.1.2.3.2.1,1.1.1.3 
Ll.1.1.1.1.1.1.1.1 


1/1 

»2«2 

.3.3 

.1.2 

l'l 

1.3 

.2.2 

.1.3 

"l'l 

.2.2 

'l'l 


l'l 

.3.3 

'1'3 

l'l' 

3/3/ 

1/3 

3.3 

3.1 

2,1 

1 


2,2, 
1.3, 

3.3, 


.3.2 

l.l'l 

3'3»1 

1/3.3 

3»1 

l'l 

1»1»3 

3.2 

l'l'l 

l'l'l 


1 1  00^' 
'SAOO' 


22 
22 
Zi 
22 
22 
22 
22 


22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
ZZ 
22 


22 
22 

22 
22 
22 
22 
22 
22 
22 
22 
22 
22 


22 
22 
22 
22 
22 
22 


22 
ZZ 
22 


528 
529 
530 
531 
532 
533 
53* 


22  535 

22  536 

22  537 

22  538 


539 
540 
5*1 
54? 
5*3 
544 
545 
546 
547 
548 
549 
550 
551 


22  552 

22  553 

22  55* 

22  555 


556 
557 
558 
559 

560 
561 
5A? 
563 
564 
565 
566 
567 
56B 
569 
570 


22  57] 

22  572 

22  573 

22  574 


575 
576 
577 
578 
579 

bso 

681 
58? 
583 
584 
5«5 
586 
587 
588 


22  689 

22  590 

22  591 

22  592 

22  593 

22  594 

22  695 

22  596 


597 
598 
599 
600 
611 
602 
613 
6.1* 
605 
606 
607 
608 


22  609 

22  610 

22  611 

22  61? 


613 
61* 
615 
616 
617 
618 


22  619 

ZZ  62P 

22  62] 

22  622 

22  623 

22  62* 

ZZ  625 

ZZ  626 


627 
628 
629 


22   630 
22   631 
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DATA  0 

DATA.l  l'1'l.l.l'l'l'l.l.l       PAT  2      600-830 

DATA.l  l'l. 1,1.1 

DATA.l  O'O'O'O'O'O'O 

DATA.l  O/0'O/O.O'O 

DATA.l  0'0'0.0,0'0'0'C.O'O 

OATA.l  2.2,2,2,2,2,2,2          PAT  3      1530»173j 

DATA.l  3.3,3.3,3  , 

UATA.l  0                         PAT  1      1845-600 

DATA  O'O'O'O.O 

SPACE  s 

FPPF      DATA  2 

SPACE  2 

K8CC      DATA  8000  .               200(1  AT  62 

<h        DATA  X'FF"  • 

LFJPN     DATA, 2  612,933,2704,1866 

^r        RES  0 

DATA.l  10M8. »3» *0 

TRULY     DATA  0 

SPACE  2 

SECTLKN   Elau  * 

OATa.2  0'1'2'3<4»5'6/7,8.9»10»11.12. 13. 14.15.16,17 

DATA. 2  49.50.91.53.54.55.56 

DATA. 2  93.118.144.147 

DATA. 2  18, 19. 20. 21 »22. 23. 24. 25. 26. 27. 28. 29. 30.31. 32. 31 

DAT A. 2  34, 35, 36, 37, 38 « 39, 4Q« 4 1,42. 43 ,44, 45. 40, 47, 48 

DATA. 2  52 

DATA. 2  57,  58. 59. 60. 61><>2. 63.  64.  65.  66. 67, 68. 65.70.  7]. 72, 73 

DATA, 2  74, 75, 76. 77. 7b. 79. 80. 81, 82. 83.8*. 85. 86. 87. S8. 89 

DAT  A.  2  90«91»92,94»95»96»97,98»99»lO0'l01'102'l03'lo4 

DATA, 2  105. 106. 107.108,109, 11 0,1 11, 112. 11 3. 11 4, 11 5. 116 

DATA, 2  11 7, a  9, 120,1 21, 122. 123. 1 24, 125, 126, 127, 128 

DATA, 2  1 29. 1 30. 1 31< 1 32. 133. 134, ]35. 1^6. ]37. 138,1 39, l»o 

DATA, 2  141,142,14  3, 145. 146. 146.] 49. I5u< 15 1,152 

DATA. 2  153* 154. 155. 156, 157. 158. 159.160. 161.162. 1 63.16* 

DATA. 2  165.166.167.168,169, 170, 171,1 72. 173. 174. 175.1 76 

DATA, 2  1 77. 1 78. 1 79. 1 80, 181, 182, l 83, 164, 185, 1*6,1 S7, 1H? 

DATA, 2  1 89, 1 90. 1 9 1«1»2, 193, 194,195,196 

DATA, 2  197, 198, 199, 200, 201, 202, 203,204, 205. 2j6.?07 

0ATA.2  2u8»2t'9.210<  211.  212/  213.  214.  215.  216.  2l7.218.  21" 

DATA. 2  220' 221' 222' 223. 224. 225, 226. 227, 228, 229,?30.23l 

DAT A. 2  232. 233. 234, 235, 236. 237, 238 . 239. 240.24  1.242.2»3 

DATA. g  244. 245. 246. 247, 248. 249, 250. 251. 202. 253. 254. 255 

DATA.  2  256«2b7,  258.  2b9,  260' 261,  262.  2^.3.  264.  265.  266,  267 

DATA, 2  268,269,270.271,272.273.274,275 

BBUND  4 

SPACE  2 

SLFOP*,    RES  0 

IN»»     08  44 

DATA»1  IN»»»1 
FIN 

nIAVMPAT    RES  0 

*       data  nmanpat 

avhhat    res  0 

DATA,]  0,1.2«3,4,5,6,7 

RES  3 

SPACE  2 

clL*10            DSECT  0 

C1CSCT         RES  0 

DATA  X'OO028O0J' 

DATA  O'I'O 

DATA  X'OOFOOOOO' 

DATA  O'O 

DATA  X'OOOOOIAJ' 

DATA  0 

DATA  X'00000628' 

DATA  X'5D935BAC' 

DATA  X'BOOOOOOO' 

DATA  X'O0OJO002' 

data  x'aicscaso1 

DATA  X'OOOOOOOO' 

DATA  X'00002000' 

SPACE  2 

CIC.SYS    RES  0 

DATA  x ' 00^28002' 'X' 00508000 '«X' 8 1C8CEA8'«X 10 14886AQ" 

DATA  x,5D985BAC'.X'559859^C',X'^00C2lA0,,X'A^nC^tA0, 

CTLSEC     EQU  * 

DATA  X'BOOFFAOO'          •  SECTI6M  1 

DATA  0,0,0 

data  x';efoo4Co'                 •  sectibn  2 

DATA  0,0 

DATA  A'03C001E0' 

DATA  X'OOOOCIEO'          •  SECTI6N  3 

DATA  X'00O0073F' 

DATA  X'FFFSFFED' 

DATA  XIFOOOJOOO' 

DATA  XiOOOOOOlFi              .  SECTI8N  4 

DATA  X'FFFFF8C0' 

DATA  X-O000J012' 

DATA  X'COOFFEOO' 

CTLSYS     E3U  * 

DATA  A'FfFFFFFFi              .  SYSTE'W  IDE  Cf^TRBLLER 

DATA  X'FFFFFFFF'              .   MASK 

DATA  X'FFF8FFFF' 

DATA  X'F3CEFFE0' 

C6JSEC    RES  0 

DATa.i  1'2,2,2,2,2'2'C,2»2'2'2 

DATA'l  1,1,1,1,1,1,1,1.1,2,1,3 

DATA,1  3, 3'3,4,4,4,4, 4, 4(4.4.4 

DATA.l  4.4.4,4,4,4,4.4,4,4,4,4 

[ATA.i  4.4.4.4.4,3.3.3.4,4.3/3 

DATA.l  3,3,3,3,3,3,3,3,3,3,3,3 

DATA.l  3'3'3»3,3'0,0'0,3'3'3»3 

DATA.l  3/3, 3.3.3. 3,3, 4, 3, 3, 4, 3 

DATA.l  3/0/3/3/0/0/2/2/?/2»J/0 

DATA.l  4»4«4'4,4»4,4,4,4,4,4,2 

DATA.l  2,2«2.0            124  C8NTR8LLERS 


22 

632 

22 

633 

22 

634 

22 

635 

22 

636 

22 

637 

22 

638 

22 

639 

22 

64C 

22 

641 

22 

64? 

22 

643 

22 

644 

22 

645 

22 

646 

22 

647 

22 

648 

22 

649 

22 

650 

22 

651 

it 

652 

22 

653 

22 

654 

22 

655 

22 

656 

22 

657 

22 

658 

22 

659 

22 

653 

22 

661 

22 

662 

22 

663 

22 

664 

22 

665 

22 

666 

Z2 

667 

22 

668 

22 

669 

22 

670 

22 

671 

22 

672 

22 

6/3 

22 

674 

22 

6/5 

22 

676 

22 

677 

22 

678 

22 

679 

22 

680 

22 

681 

22 

682 

22 

683 

22 

684 

32 

685 

22 

686 

22 

687 

22 

688 

22 

689 

22 

691 

22 

691 

22 

692 

22 

693 

22 

694 

22 

695 

22 

696 

22 

697 

22 

698 

22 

699 

22 

700 

22 

701 

22 

702 

22 

703 

21 

704 

22 

705 

22 

706 

22 

707 

22 

70S 

22 

709 

22 

710 

22 

711 

22 

712 

iZ 

713 

22 

714 

22 

715 

22 

716 

22 

717 

22 

718 

22 

719 

22 

720 

22 

721 

22 

722 

22 

723 

22 

724 

22 

725 

22 

726 

22 

727 

22 

728 

22 

729 

22 

730 

22 

731 

22 

732 

22 

733 

22 

734 

22 

735 

22 

736 

22 

737 

22 

738 
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SPACE  2  22  739 

C8NTZS    DATA.l  3. 1.2,3.4, 5.6.7. 8, 9. 10.11. 12. 13. 14.15. 16, 17,  18  22  740 

DATA.l  19,^0»li.22.23,2*.25.26.27,2e.29.30»31.32»33  22  7M 

DATA.l  3i,»35»36'37»38,39,*0»in.42.43»44«45»46.*7»<.8  22  7»? 

DATa.1  49, 5j. 51.52. =3, 5*. 55. 5*.  57, 58.59. 60.61.62.63  22  7*3 

DATA.l  Sli, 65.66. 67. 68. 69. 70.7l, 72  22  7*» 

68j\D  4  22  7*5 

LNKCUN    RES  3  22  746 

DATA.l  1*. 14. 14.14,14, 16. 16.16.16. 16< 16. 17, 17, 17.15.19. 19  22  7»7 

DATA.l  19,8,>..*»5»5,>!.8»9|9»9»9»9.  10'13.13«10>11<11  22  7»9 

DATa.i  li,11.119.119.1i9.119»lf;.120.12D'120.1?».l,2.l22  22  749 

6ATA.1  2:»20»2o, 96. 22. ?2. 22.22, ?3»23. 23.23.53. 53.53. 53  22  75; 

CATa.i  5».5l.5».b».5S.55.58.59,5».59.59.i9,6j.63.6;.62  22  751 

DATA.l  63. 64. 6-.. 6». 65.^5. 6b. 65. 65. 66. 66. 67, 15. 67. 67, 67  22  75? 

DATA.l  66.68»68.68.69.^9.63.69,7-.70.7l.7l,7i.72.7j.7?«72  22  753 

DATA.l  73. 73.73, 7n.13.7A.74. 7*. 85. 75. 75.62,76.76.76  22  754 

DATA/1  85. 80. 80. 8o» 63. 81. 81.81, 81. 6o« 82. 82, 82. 8?»13. S3  22  755 

DATA.l  83.15. 84.84.84.fc*. 85. 86, 86. 86. 86. 87. 87. 87.87. 88. 88  22  '56 

DATA.l  88, 88. 89. 89. 95, 90<90. 92. 92. 9?. 92, 93, 93. 93. 9d. 95.95  22  757 

DATA.l  96.67.96.96.96,98.98.98,98.98.99,99,99.99.30.30  22  759 

DATA.l  30»30»30<31. 32.32. 32.36.38.38.39.39.39. 39.4;), *0»40  22  759 

DATA.l  40.41.41.41.  41.  *2»42»42,42,  13.  **,«*, 44,  45,45.46.46  22  760 

DATA.l  »6.»6.»7.<l7,»;.(,J.»8,»9,»9.i,9.»9.5o.5c»5l.5i.5?.52  22  7*1 

DATA.l  52.56. 56. 57, 11*, Ji»»118, 118, 123. 123, 123. 123. 123.123  22  762 

DATA.l  123.123,123.123,123.123,123.123.123.123  22  763 

DATA.l  123.123.123.123,123  22  76* 

BSUND  *  22  765 

TIIMCh    TEXT  '0000000000000000'  22  766 

ISl                  DATA.l  0«3«U'0»O»0»O»0»C»0»2»;>»4,4,4,»,4,7,7»7,7,7  22  767 

DATA.l  7, 7, 7. 7.7, 7. 7.7.7.7.7, 7.7. 7, 7.7. 7, 7.9. 9. 11  22  768 

DATA.l  11. 11M3.13. 13, 13.  1»,1A, !«,]». l», 17.19. t9. 21  22  769 

DATA.l  21. 2*. 27. 27. 27, 27, 28. 29. 31. 31« 33. 33. 36. 36. 39  22  77;; 

DATA.l  4?, 42, 42.43.44, 4»»44»44. 44, 46.46.47. 48, 48.48  22  77l 

DATA.l  52. 52*52.54.54, 57. 58.58, 58.6C60. 64. 64, 64. A4  22  77? 

DATA.l  6*. 6*. 6*. 6*. 6*. 6*. 64. 6». 6». 6t» 6*. 64.66. 66. 66  22  773 

DATA.l  66.66.68.70.70.72.73  22  774 

BSumD  *  22  775 

SPACE  2  22  776 

BLM1     DSECT  0  22  777 

*S01b     DATA  0*0. 0.0»3»0»0.0»0«0»0«0.0»3»0'0»3'0«0. 0.3.0. 0.0<0«C  22  778 

DATA  0.0.0.0,0.0  22  779 

1615      D*TA  0»0»0<0>0«0. 0»C»0<0»0»0.0«C. O'O.O'O. CO. O'O.O.O'O  22  750 

DATA  0.0. 0»0.0< O'O'O.O'O. 0.0. 0.0.0' 0.0. 0.0. 0.0. 0.0. O'O  22  781 

DATA  O.O'0. 0.0. 0.0. 0.0< 0.0.0. 0.0  22  78? 

K«        DATA  2000                  8CC  .SIGHTING  FACTS'?  22  753 

LINKOJ     RE.S  0  22  754 

DATA.l  3. 0. 0. 2. 2. 3. 3'0. 2« 2. 1. 3, 2, 3. 2. 5. 7. 6. 5. 5. r, 2. 6. 6. 1«3  22  785 

DATA.i  0'2>1<1>3.5.2.6.3.0<2.1.3'0.2.1>3>0<2>1>0'2>1>5>2<6  22  '86 

DATA.l  2. 5. 0'6> 1'5. 3. 0. 1'5. 0'2. 6> 3. 0'6. 1.2. 1.3.2, 1.3.0.2' 3  22  757 

DATA.l  0,2.1,0.0.1.1'3.3.5»6.1.3.0'3.  1" 0.0.  L5.D.2. 6'3< 5.6  22  758 

DATA.l  1.0»2»3>2.1.3»0»0'2'3.2,1.7.2»3»»»2,1,2»1,2»D.<.»2.0  22  789 

DATA.l  0.2. 1,2. 0.0*2. I. 1.1. 0.0.2.1. 3.2. 1.3.0.  j.  ?.  c.  2.  3.  0.  2  22  790 

DATA.l  l,3.3.2.1,3,j.2<1.0.1.0.1.1.3.2.0.1.3.2<1.2o.2,l>3  22  791 

DATA.l  0.2. 1. 3. 0. 0» 24l»3'0. 2<1. 3.3. 0'2'1'3. 3. 2. 2.1.3.2.3.2  22  79? 

DATA.l  1.1.3.3»2.2.3»0.2»l'3»3,0O>l'3,1.1.3.0.3.0.2-.2'2«2  22  793 

DATA.l  1»0»2.3.3«0'2»0.2.0.1<0.2'1'3'0.1»0'2.3, 1  22  79k 

BSuND  *  22  795 

.          •••  NDBL,  MJMBER    BF   DETECT     UK         LIS*  •••  22  796 

NDBl      RES  0  22  797 

DATA.l  1, 1.1.1.1. 1.1. 1.1. 1»1»1»1.3>1'1. 1.1.1.1. 1>0. 1<1'1»1  22  798 

DATA.l  1,1,1,1,1.1.1.1.1.1.1,1.1.1.1,1.1.1.1.1.1.1.1.1.1.1  22  799 

DATA.l  1.1.1,1.1.1.1.1.1,1.1.1,1.1.1.1.1.1.0.1.1.1.1.1.1.1  22  800 

DATA.l  1,1.1,1,1,0.1.1.1.1.1.1.1.1.1.1.1.1.0.1.1.1.0.1. 3.1  22  801 

DATA.l  1,1,1.1.1, 1,1.1.1. 1.0.1.1. 0.1.1. 1.1. l'l.l.l'l'l.l'l  22  802 

DATA.l  1,1.1.1.1.1,1,1,1  .1  .1,<  -•-«  .1  .1  ,l,i  .1  .t  .1  .1,1,1  .1  •<  »?  813 

DATA.l  1,1, 1.1, 1,1,1.1. 1.1. 1.1. l.l.l.W 1.1.1. l.l.l'l'l.l'l  22  80* 

DATA.l  1,1, 1,1.1.1. 1.1. 1.1. 1.1.!.1»1»1'1.1.1'1«1»1M.1»1<1  |2  "OS 

OATA.l  1,1, 1*1*1*1, 1»1»1*1»1»1*1.1<1»1'1.1.1»1»1»1'1*1. 1*1  \\  I™ 

DATA.l  l,l,l,l.l»l»l»l*l*l»l»l»l*l*l»l'l»l*l'l'l 

DATA.l  0 

DATA  0.0,0.0.0 

B8UN0  » 

SPACE  2 

...   NU^BEH  AND  UST  8F  N8N-EX1STANT  C8NTR8LLERS  22  81? 

N8NC8N*   DATA  13  11  HI 

M8C8NT    DATA.l  0.8.78.79.80.92.95.98.101.102.107.108  22  81* 

DATA.l  112  ||  l\l 

22  817 

22  818 

22  819 

LENGTH   8F   BL6CK   F8R   EACi   LIN*   (FT)  ••  22  820 

DATA, 2  2b3, 3*2, 3*2, 300, 210, 385,325, ?10,*25, 377, 372, *|5, 385  ?i  821 

DATA, 2  24-*24C*45c»S5,s4c*45o*3*5,21'.«385,45-:,4ii.365.210  22  B2? 

DATA, 2  337.210.270'210.210'32*.210'335.210'2l0.210.2l0'210  ||  »|3 

DATA.l  21-,,210.210'21C 210.210. 210. 210.210' 2l0< 370. 100'»50  22  »2* 

DATA, 2  »»-,»io.2»0'390.*O0'175.5c'25:<31O. 371.3*8.200. 3*2  22  8?5 

DATA, 2  ?63.38», 365. 320. 330» 350.3**. 210' 300-355. 323. 373. 135  22  »26 

DATA, 2  3c2. 365, 3U0. 310. 3l7,3i0, 295, »00'27|. 210. 36n.2lg.*5Q  22  »27 

DATA,!  115.300. 210'35«.*00'3oS. 3*7. 210.*05.36S.A05. 36?. 377  22  828 

DATA. 2  gj^.385. 1*5. 3b*. 375. 30*. 210. 290. 310' 383.200. 250'*»0  22  "" 

DATA. 2  »5,.*50.300'235.l80'3*0.38S.365.?95.3l2.305.370.»20  22  "0 

D*TA,2  310'*05,*50.36C.283.325,350.370.*50.305.305.305.»35  22  »31 

DATA.l  *5o.3*0.312.365, 310.297, 325.365.290.372.365.310'190  ff  |*| 

DATA.i  ?95. 357, 274, 366, 29», 125, 290.369, 325. 350. 325. 300«3JO  22  833 

DATA. 2  21-, 265, 210.37o. 322.210.2*0. 302.180. 360.275. »10. 3*5  22  »34 

DATA, 2  3i<t,2ic. 375. 360. 282. 315.337, 286, 335. 308.200.320'210  22  "35 

DATA, 2  275, 365, 351,366, 175,369,235, 210. »25.3l0. *5o.359. 210  22  "6 

DATA.i  339.339.45a»3B3, 400*365, 377, 365, 365. 365. 3o5,3o5. 110  22  "7 

DATA. 2  no. 4^0. 364, 400. 371. 450. 110. 285. 285. 403. 400. 305. 305  22  "8 

DATA, 2  no. 380. 365, 300. 210. 365. 210. 250. 450.290. 250. 382. 35*  22  "9 

DATA. 2  2i0,2io. 210'230« 355. 368. 410.365,410.200. 550. 550.55o  22   »*C 

DATA.2  455.4o0.400M00.5b0.56o.55o.400'55o.l80.l80  ||   »*1 

DATA. 2  210.210.210.210.210 


BSUnD 

T8SU      DATA  0 

SPACE  2 

4L*12     DSECT  0 


22  808 

22  809 

22  810 

22  811 


B8UW0 
SPACE 


22  84? 
22  843 
22   844 
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oatbik         data  i 

JJ  DATA  0 

Ll^KSI  DATA, 2  0,29/6..l/l9»*255.255 

SPACE  2 

PATNJh         DATA  -1*-1/-1 

.  •••       15  "I'-IUTE    HEPSRT    FLAG 

PMFLG         DATA  1 

SECCBVS!    RES  a 

DATA/1  r,.ii,V»7i.,115 

BBU'JD  * 

SPACE  2 

SECC8M      (.ATA.i  0»l2,l3/l*/l5/16/l7,18*i9/20/22/l/2/3/*/S/6z8/9 

DATa.i  10*11/21/10? 

DATA/  1  1„3» 10**105/ 119/ 120/ 121/ 122/ 23/ 2*/ 25 

DATA/l  26/53/5<./55zS8/«9/6,,/61/62/63/6»./65/66/67/6a/69 

DATAzl  7C / 71,72,73, 7*/ 75/ 76/ 80/81/ 82/ 93/ 8*, 85/ 86/ 87/ 8R 

DATA/;  89/00/92/93/95/96,97,98,99,27,28,29,30/31.32.33/3* 

DATA/1  35/36/37/3B/39/»0/»l/<t2,»3»»*.*5.»6.*7»*8.*9»5o 

DATa/1  51/ 52/ b6/57, 91/ 9», 108/109/ 110/111/112/ 113/ 11* 

DATA.l  115/116/117/118 

BBUjvO  * 

SPACE  2 

SSF  ■<  DATA  0 

SPACE  2 

SLMJ  CSECT  0 

•  «••       0/.L  0ETECT8R-LI\IK         ARFVAV    ••• 

3«L  RES  0 

DATA/2  18/19/  19*19*20/ 20/ 21/ 22/ 23/ 23/ 23/ 2*/ 2*/ 2*/ 25/ 25/ 26 

DATA/ 2  26/ 26, 27/ 27, 28/ 29/ 29/ 30/ 3^/ 31/ 31/ 31/ 32/ 3?. 33/ 33/ 33 

CATA/2  3*/ 3*/ 35/ 35/ 36/ 36/ 37/37*1 3*1/ lz lz 2z 2/ 2, 3/ */ »/ 5/ 6/ 6/6 

OAT*/ 2  7/7,8/9/9/9* 10* 10*10/ 11' 11' 12/ l»z 15/ 16, 17, »9,5    ,51 

DATA, 2  52/ 53/5*/ 55/ 56/ 57/ 58/ 59, 6?/ 19*/ I9»*l95* 1 96* l 96, 196 

DATA, 2  197* 197* 197* 198, 198. 198, 199, 200* 200* ?00< 201, 2 32* ?02 

DATA, 2  203* 20**205* 206, ?06» 206* 207* 207* 208* 208,208, 209* 209 

DATA, 2  209* 21 0*21 1*21 1.21 1/212/ 21 3/ 213/ 213* 21**21*. 21**215 

DATA* 2  215* 215* 2 16/ 216/ 2 16/ 21 7/ 2 17/ 2 17, 218* 219*220/ 221/ 22? 

DATA* 2  223* 223, 223* 22*. 225. 225. 225. 226. 227* 228. 229. 23o»23l 

DATA. 2  232* 233. 23**235, 235* 235* 236. 236* 236* 237. 238.  238* 239 

DAT A. 2  239»239*2*0z2*0z2*lz2»2,2»3»2«*»2»5»2»5.?»5/2»6»2*6 

DATA* 2  2*6* 2*7* 2*7* 61/ 61/ 61/ 62/ 62/ 62/ 63/ 6*/ 6*/ 6*/ 65/ 65/ 65 

DATA/ 2  66/ 66/ 66/ 67/ 67/ 67/ 68.  68,  68*  69*  7o*  2*8*  2*8.  2<(9<  2*9*  250 

DATA* 2  71*71*71.72. 72*73* 73* 73. 7**7*. 7*, 75. 75* 75*76* 76* 76 

DATA*2  77* 78*78*78. 79* 79/ 79/ 80/8l/8l/8l/82/82/S2/83/8*/8» 

DATA/2  8*/ 85/86/87*87*88* 88*88/89/ 89/90/91/ 92/ 92/93/9*/ 9* 

DATA/ 2  9*/ 95* 96/ 96/ 96/ 97/ 97/ 97, 98, 98/ 99/ lr 3/ 100/ 100/ 1 01' 102 

DATA/ 2  102/ 102/ 103/ 103/ 103/ 10*/ 10*/ 105/ 106/ 107/ 107/ 107/ 108 

DATA/ 2  108/108/109/109/109/110»110/111/111/111/112/113/113 

DATA/ 2  1 13/ 1 1*»  1 15, 1 16* 1 17* 118* 119.12c* 121, o*c* 122*123 

DAT A* 2  1 23, 1 23. i2*» 12*. i 2t» 125* 125. 125* 126, 126* 1?6* 127,128 

DATA, 2  128,128,129, 130/ 131/ 132, 133/ 133/ 1 33/ 1 3*/  1 3*.  1 3»« 1 35 

DAT  A/ 2  136/136/136/137/  [37/137,138/  139/1*0,  1*1/  1*2/'.*  3/  1*» 

DATA/2  1**/ 1***1*5* 1*5, 1*5/ 1*6/1*6/ 1*6/ 1*7/ l»7/l»7/l.«/l»8 

DATA/ 2  1*8/1*9/150,150,150,151,151,151/152/152/ 152/153,153 

DATA, 2  153/ 15*/ 155/ 156, 156/ 156, 157/ 157/ 157, 158, 158,158, 1*9 

DATA, 2  159, 159,160,160, 160/ 161. 1*2, 162. 162/ 163/ 16  3, 163/  16. 

DAT A. 2  165/166/167/167,167. 168. 169, 1 69, 17 1, 170, 1 7 o, 17?, 1 72 

DATA, 2  172, 173, 173/ 173/ 17*/ 17*, 175/176/176/176/  177,178/179 

DATA/ 2  180/191/  181/  181,182/182,182/  183/183/  18*/ 18*/ 18»/ 185 

DATa/2  185/ 185/ 1 86 / 186/ 186/187, IS 8* 188* 188.1 39, 1»9,1A?< 190 

DATA, 2  190,190,191,191,191*192,193,193,193,251,251,251,252 

DATA, 2  2ba» 252. 253. 25**38*38* 39* 39, *0,*0,*1**1.*2»»2.»3»*3 

DATA,  2  **,**«*5«*5.*6*il6»*7,*7,  ♦8.18/ 255/ 256/ 257/ 258/ 259 

DATA/ 2  260/ 26 1/262/ 263/ 26*/ 265/ 266/ 267, 268/ 269/ ?70 

BBUvD  * 
.                       «...    DKLP  UITECT8R       «!TM      LlKK       P3SITIBA    ••« 

J/.LP  RES  0 

DATA  X'bCBE77AD' 

DATA  X'5AB6A596' 

DATA  XiC02*096D' 

DATA  X"5»ACPAAD' 

DATA  X'B682B802' 

DATA  XID560OEB5' 

DATa  XI6DB5A5AD' 

DATA  X'F56ADD28' 

DATA  X'12BD90EC 

DATA  x'bAEAB212' 

DATA  X'0DD*355A' 

DATA  X'05b6C5D6' 

DATA  X,A6DB568A' 

DATA  X'35B2s5B5' 

DATA  X'B*E0AB6A' 

DATA  X " 55555000' 

DATA  J^MigOOOOoni 

68UND  * 

SPACE  2 

EBOC  DATA  1 

FTAB  DATA  0 

FTAB«<*0      DATA  1 

10E1F  RES  0 

DB1  NLR/* 

DATA  X'o20?C202' 

SPACE  ? 

31*1*  DSECT  o 

.  FAIL    TAB    LENGTHS    MUST    BE    ST9RED    SEQUENTIALLY 

CSNLtM,       DATA  0 

OtTLESB      D*TA  0 

CB"UEN(>      DATA  0 

BDETLEN3    DATA  0 

BCB^LE^O    DATA  0 

CBNTL\         RES  0 

DATA  .1/-1/-1  1 

DATA  -1/-1/-1  ? 

DATA  -1,-1, «1  3 

DAT*  -1,-1,-1  * 

DATA  -1<-1»-1  5 

DATA  -1<-1,-1  fc 


?2 

8*5 

22 

8*6 

22 

8*7 

22 

8*8 

22 

8*9 

ZZ 

850 

22 

8-1 

22 

852 

22 

853 

22 

85* 

22 

855 

22 

856 

22 

857 

22 

858 

22 

859 

22 

860 

22 

861 

22 

862 

22 

863 

22 

86* 

22 

865 

ZZ 

866 

22 

867 

?2 

868 

2? 

869 

?? 

870 

?? 

871 

22 

87? 

22 

873 

22 

87* 

22 

875 

22 

876 

ZZ 

877 

22 

878 

22 

879 

22 

880 

22 

881 

22 

882 

22 

883 

22 

88* 

22 

885 

22 

886 

22 

887 

22 

883 

22 

889 

22 

890 

22 

891 

22 

892 

22 

893 

22 

89* 

ZZ 

895 

22 

896 

22 

897 

22 

898 

22 

899 

22 

900 

ZZ 

901 

ZZ 

902 

22 

903 

22 

90* 

ZZ 

905 

ZZ 

906 

ZZ 

907 

22 

908 

22 

909 

22 

910 

22 

911 

22 

912 

22 

913 

22 

91* 

22 

915 

22 

916 

22 

917 

22 

918 

22 

919 

22 

920 

22 

921 

22 

922 

22 

923 

ZZ 

9'* 

ZZ 

925 

ZZ 

926 

_22 

927 

22 

928 

22 

929 

ZZ 

930 

ZZ 

931 

ZZ 

932 

ZZ 

933 

ZZ 

93* 

ZZ 

935 

ZZ 

936 

ZZ 

937 

ZZ 

918 

ZZ 

919 

ZZ 

9*0 

ZZ 

9*1 

22 

9*2 

22 

9*3 

2? 

9«* 

22 

9*5 

2? 

9»6 

?? 

9*7 

22 

9*8 

22 

9*9 

22 

950 

157 


DATA  >li-ll>l 

DATA  -1/-1/-1 

DATA. 2  20/?4/23/l9/22/18 

DATA. 2  26/25/27, 29/2B/-1 

DATA, 2  3lj33»32/30i-l«-l 

DATA/2  35/37/34, 36, -1/-1 

DATA  -l#-l»-l 

DATA. 2  14<t.H8»-l'-l/-l.-l 

DATA/2  l»0.4,2,3,.l 

DATA, 2  1*7/93, -1/-1»-1»-1 

DATA/2  9/6/10/7/8/5 

DATA/2  U/12/-1/-1/-1/-1  18 

DATA, 2  1*/-1/-1/-1/-1/-1 

DATA/2  16/ 15/ 17/-1/-1/-1 

DATA/2  49/51/50/-1/-1/-1 

DATA  -1/-1/-1 

DATA/2  53/55/5*/56/-l/-l 

DATA/2  57/59/60/58/-1/-1 

DATA  -1/-1/-1 

DATA  -1/-1/»1 

DATA  -1/-1/-1 

DATA  -1/-1/-1 

DATA  -1/-1/-1 

DATA  "1/-1/-1 

DATA/2  19*/19b/ 198/197/ 195/-1 

UATA/2  199/-1/-1/-1/-1/-1 

DATA/2  20u,202»201/-l'"M/-l 

DATA  -1/-1/-1 

DATA  -1,-1, -1 

DATA  -1,-1, "1 

DATA/2  203,-1,-1,-1,-1,-1 

DAT*  -1/-1/-1 

DATA/2  205/20»'-l'-l'"l/"l       39 

DATA/2  206/207/208/209/. 1<-1 

DATA, 2  2ll.2lJ.210/212/-l"? 

DATA/2  216/215,217, 214/. 1/-1 

DATA/2  218, 219/220/221/. 1/-1 

DATA/2  222/.l/-l/.l>.l/.l 

DATA, 2  jg3/225/224/.l/-l/'l 

DATA/2  226/227/- 1/-1/-1/.1 

DATA/2  230/231/228, 229/. i/«l 

DATA, 2  232/233, 234/-1/-1.-1 

DATA/2  236/235/-1/-1/-1/.1 

DAT»/2  238/239/240/237/. 1/-1 

DATa/2  242/241/-1/-1/-1/.1 

DATA/2  243/244/- 1,-1,- 1,-1 

DATA,£  247/246/245/- 1/-1/-1 

DATA/2  64/62,61/63/. 1»-1 

DATA/2  65/67, 66, 68/- p. l 

DATA, 2  69/-1/-1/-1/-1/*!  56 

DAT«/2  249/248/. 1/-1/-1/.1 

DATA/2  2S0/'l/-l/'l'-l'.l 

DATA/2  71/72/73/- I/- 1/-1 

DATA/2  74/ 76/75/' l/'l/'l 

DATA/2  79/ 78,77, 139, -1/-1 

DATA  "l,.l,.l 

DATA/2  80/125/-1/-1/.1/.1    63 

DATA, 2  81,133."l,.l,-l/.l 

DATA/2  82/84, 151/-1/-1/.1    65 

DATA/2  87/89/68/85/86/' 1     66 

DATA/2  91/90/' 1/-1/-1/.1 

DATA/2  94/92/95/181/" l/.l    68 

OATA/2  97/98/99/- 1/-1/-1     69 

DATA/2  103/104/101/" 1/-1/-1  70 

DATA/2  106/105, .1/.1/-1/.1 

DATA/2  107,106/109'-1/"1»"1 

DATA, 2  110/ 113/ 111/112/. 1/-1 

DATA/2  116/11S/.1/-1/-1/.1   74 

D4TA/2  119/121/120/. 1#»1#»1  75 

DATA, 2  124,123,.i,.l,-l,.l 

DATa/2  126/128/127/. 1/-1/-1 

DATA  -1/-1/.1 

DATA  -1/-1/.1 

DATA  -1/.1/-1 

DATA/2  130/132/131/" l/'l/'l 

DATa/2  134.137/136/135/138/-1 

DATa/2  140/141/ 143/142/. 1/-1 

DATA/2  146/ 145/.H'l,.l,.l 

OATA/2  148/150' 149/. 1/.J/-1 

DATA/2  152,129/122/-1/'1/-1 

DATA/2  163/ 156/ 155/ 154/. i/«i 

DATA/2  157/159, 160/158/. 1/-1 

DATA/2  163/162/161/164/. 1/«1 

DATa/2  165/166/. l/'l/'l/.l 

DATA/2  167/169/168/177/. 1,«1 

DATA  -1/.1/-1 

DATA/2  170/172/173/171, .1/-1 

DATA, 2  I74,176«l75»«l,-i»-l 

DATA  .1/-1/-1 

DATA/2  178/180/179/-  1»"1,M 

DATA/2  182/184/183/52/" l.-l 

DATA  '1/-1/.1 

DAT*, 2  185/188/186/189/187/-1 

DATA/2  190/191/193, 192/. lz-1 

DATA  -1/-1/.1 

DATA  "l/.l/.l 

DATA  .1.-1,-1 

DATA  "1/-1, -1 

DATA  .1,-1, .1 

DATA  -l.-l/.l 

n«T,  -l/.l/.l 

DATA  "l/.l/.l 

DAT*  .l/.l,.l 

DATA  -l.-l.-l 

DATA  >l,.l,.l 

DATA  »l.-l,.l 


t 

22 

951 

8 

22 

952 

9 

22 

953 

10 

22 

954 

11 

22 

955 

12 

22 

956 

13 

22 

957 

14 

ii 

958 

15 

22 

959 

16 

22 

960 

17 

22 

961 

22 

962 

19 

22 

963 

20 

22 

964 

21 

22 

965 

22 

22 

966 

23 

22 

967 

24 

22 

96! 

25 

22 

969 

26 

22 

970 

27 

22 

971 

28 

22 

972 

29 

22 

973 

30 

22 

974 

31 

22 

975 

32 

22 

976 

33 

22 

977 

34 

22 

978 

35 

22 

979 

36 

22 

980 

37 

22 

981 

38 

22 

982 

22 

983 

40 

22 

984 

41 

22 

985 

42 

22 

986 

43 

22 

987 

44 

22 

988 

45 

22 

989 

46" 

22 

990 

47 

22 

991 

48 

22 

99? 

49 

22 

993 

50 

22 

994 

51 

22 

995 

52 

22 

996 

53 

22 

997 

54 

22 

998 

55 

22 

999 

22 

1000 

57 

22 

1001 

58 

22 

1002 

59 

22 

1003 

60 

22 

1004 

61 

22 

1005 

62 

22 

1006 

22 

1007 

64 

22 

iooe 

22 

1009 

22 

1010 

67 

22 

1011 

22 

1012 

22 

1013 

22 

1014 

71 

22 

1015 

72 

22 

1016 

73 

22 

1017 

22 

1018 

22 

101» 

76 

22 

1020 

77 

22 

102t 

78 

22 

102? 

79 

22 

1023 

80 

22 

1024 

81 

22 

1025 

82 

22 

1026 

83 

22 

1027 

84 

22 

1028 

85 

22 

10?9 

86 

22 

1030 

87 

22 

1031 

88 

22 

103? 

89 

22 

1033 

90 

22 

1034 

91 

22 

1035 

92 

22 

1036 

93 

22 

1037 

94 

22 

1038 

95 

22 

1039 

96 

22 

1040 

97 

22 

1041 

98 

22 

104? 

99 

22 

1043 

100 

22 

1044 

101 

22 

1045 

102 

22 

1046 

103 

22 

1047 

104 

22 

1048 

105 

22 

1049 

106 

22 

1050 

1  i7 

22 

1051 

108 

22 

1055 

109 

22 

1053 

110 

22 

1054 

1  11 

22 

1055 

112 

22 

1056 

158 


EMFLG 
KCl 


KCTK 
KCSF 


L\KPT 


BL*27 
DEfDSP 


DAT* 

DATA 

DATA, 2 

DATA 

DATA 

DATA 

DATA, 2 

DATA, 2 

DATA, 2 

DATA 

DATA, 2 

DATA 

BBJnD 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

b»u'*D 

RES 

DATA,1 

DATa,1 

DATa.i 

DATA, i 

DAT*,j 

DATa,1 

DATa.i 

DATa.i 

DATA.i 

DATa.j 

DATa,i 

SPACE 

PES 

DATA 

DAT* 

DATA 

D*TA 

D*T* 

D*T* 

DAT* 

DATA 

SPACE 

RES 

DATA,1 

DATA.I 

DATA,1 

DATA,1 

DATA,1 

DATA.I 

DATA.I 

OATa.1 

DATA.I 
^*TA,1 
D»T*,1 
D*T*»1 
DA1*.l 
D*T*,1 
D*T*,1 
D*T*,1 
DATA.I 
DATA.I 
DATa.i 
DATA.I 
DATA.I 
DATA.I 

DATA.I 
DATA,! 
DATA.I 
DATA.l 

DATA.I 
DATA.I 
DATA.l 

DATA.I 
DATA.l 

DATA,1 

DATA,1 
DATA.l 
DATA.l 

DATA.l 
DATA.l 
OATA,l 
DATA.l 
DATA.l 
DATA.l 
•••    LNK 

DATA.l 

DATA,1 

DATA.l 

DATA.l 

DATA.l 

DATA.l 

DATA.l 

DATA.l 

DAT*.l 

D*T*.l 

BBJiiD 

SPACE 

DSECT 

RES 

DAT*. 2 

DATA, 2 


•l.-l,-l 
•1»«1«-1 

251,252,-1»-1.-1.-1 
»1«-1.«1 

•1,-1, -1 
•1,-1, -1 
25*.253,-i«-l,-l,-l 

39,*l,38»*o«-l««l 
*3«*2,**»*5,-l»»i 

*6,*8,*7,-i,-l«-i 
•1,-1, -1 

1 

•1.0.0,0,0 
80,100,110,120 
13o,l*U'l50'16i 
170,180,190,203 
213»22'„»23o»2*0»90 

O.O'O.O.O'O.O'O.O'O 

0,0,0.0.0' O'O 

U'0'0'0'0'0'0,0,0'0 

0<5» o.o.o. o.o 


2, 2, 2, 2. 2, 2. 2.0.5. 3. 2, 2 
2.2.2.2.3,2,2.2.2.2,3,2 

2,2.2.2.2.2.2,2.3.2.2.2 
3.3.2.2.2.2.2.2.2.2.2,2 
2,2,2,2,2,2.2.2.2.2,2.2 
2.2.2.2.3.3.2.2.2.2.2.2 
2.2.3.2.2.0'0'0,2.2.2.2 
2, 2. 2, 2, 2, 2, 3,2,3,2, 2, 2 
2»2.2.2.0'O'2'2'2'3'0'0 
2»2<2.2.2'2'2<2.2'2,2'2 


113 

11* 
115 
116 

117 
118 
119 
120 
121 
122 
123 
12* 


12*  C9NTR8LLERS 


CBNTR8LLERS  6< 
CONTROLLER  58 
NBNE 
C8NTR«LLE"  122 


2»2'2.0 
2 

0 

X'FBFFFF7F'  CBNTR8LLERS  6,  25 

0 

X'FFFFFFBFi 

0 

X'FFFFFFFF' 

0 

X'FFFFFFBF" 

0 
2 
0 
0«2«0»u»0»6»3»0»  J,  3,0.0 

0'3'0«  0.  1.  *.  O'O.  0'  l.O'O 
1,*.  0.0.  0,0,  0«0<  2,8,  0,0 
1,7»*.0»1.»<0«0.0'2,0«0 
O.*.O.0.0«*< O'O. 3'5.0»0 
0,7»0»  0.1»*'7.0.0'2'0'0 
0'2» O'O. 2.13,0,o,l,5,0«n 
0,2,0,0,1,6,3,0.0.7.0.0 
0,1, 0,0. 0,12. 0.0.0' 5. O'O 
0,*, 0,0,1 '7,0.0.1,*, 0,0 
*,  13. 0»0,  1'6,  O'O.  0,*,  2,  r, 
1.5.0«0.0.2'0»0.2'6<0»0 
2'6»1*»0'1'3,6«3,0»*'0»C 
l.*«0»0»l«*'0'0«l'3,0»0 
0,2»0.0»0'2'0'C«1«3,0»0 
0»2'0.0»2.6.0.0.0'2»0»0 
0»2«0.0.0.2'0'0.0'2»0»0 
0' 2' O'O. 2. 6. 0,0, 1,6, 0,0 
1«5»0»C»1»*>0'0»0'2»0<0 
0'1'0'0,2'5.0,0,3.6.0'C 
2»6. 3.  j.  0.3.0.  J. 2. 6.3.0 
2,6,0,0.1»*'7»0»l»l*.5,r. 
2»6.0.0.1'6»0»0,1»6#0,0 
1.6.0.0.0,9.  O'O.  1.3.0,0 
1»  3.  0,0,  2,6,  0.0. 1.6,  3,0 
1>5,0,0'1'*'0»0'0«0,0<3 

o. 0,0. o.o. o.o. o.i.*, 0,0 

1»»» 0.0,1,*, 0,0,1,*, 0.0 

2, 6. 0.0, 5, 2, O'O, 1,3, 0,0 

1»*» 0.0. 0.3. 0.0. 2» 6, 0,0 
1,*,7,0'1»*'0,0,1,»»7,0 
1,*,0,0'1'*,3'0'1,*'0'0 
2. 5.0.0'!'*, 0,0, 1,7, O'O 

0'2, 0,0' O'O, O'O. O'O' 0/0 
1,5,0,0'1,6,0,0,1,*»0'0 
*,  8,  12,  O'O' O'O' 0,0' 0,0,0 

0,5'0'0'1'6,0'0,2'6<0>0 

2.6,0,0,0'2»0»0»1«»«0'0 

l»*'0,0,l»*,0'0-.0,2,0,0 

1,*.0.0»0,2,0'0«1»»'0,0 
.  3, 10, 0,0,0,1, 0,3, 0'2»0»n 
PT  LINK  PHASE  TABLE  ••• 

AHO   A2»l   bl.2   B2»3    Cl«*   01-6 
1,0»*,2,2«0»1»»»0,0,2»0»0»3'0«2'3,*»*' 

3<3,*,*,*'0'2'1<2'0<3'1<2,0.3.1.2,0<3 

0'C'2'0.2.0.*.2.2.*.2.0.0'0»2'1<3»0'2.0 

2,3»0'0,0»2,2'0.6'0.».2.2.0'2'2»0'0'*'3 
2,2,0,0'l>2,0'2<?,l,2,2,n>*,0,'~'«<2'2<2' 
0'2,0,2,0»0»2'1'0,2»0,3»2»3»0»2'0'0»3,  7» 

2,0,*,1,2'0'2»0,2.0.0.0.2.2.0'0.*,2,0.0 

0'2'1»0»2,2'1'*.0'2»0'3.0'0.2.*.3.0.3.2 

2'3»0'0»2,2'*'2»0'3»0'0'2'2.2'0»2'2.0.2 

2«2»0»*»0'1»2'2.0'0'0»*.2.0.2.0.0'0'2.2 

* 

2 

0 

0 

037. 007.007. 007, 0C9. 009. Oil '01 3. 013. 013 

013.015.015.015,017.017.019,019,019,021 


.A.S.2 

p. 2.1 

41' 2'0 
»?.0.0 
3»20«C 
2,2,,-,,0 
7,*,0< 

?»*.*. 
?.2.0. 

3 


.1.2 

3>2»C 

2.1.0 

O'O'O 

.2,2 

,2,0 

?.0<2 

O'O'l 

1.0.0 


1  -  01 
1  •  02 


22  1057 
22  1058 
22  1059 
22  1060 
22  1061 
22  1062 
22  1063 
22  106* 
22  1065 
22  1066 
22  1067 
22  1068 
22  1069 
22  1070 
22  1071 
22  1072 
22  1073 
22  107* 
22  1075 
22  1076 
22  1077 
22  1078 
22  10'9 
22  1080 
22  1081 
22  1082 
22  1083 
22  108* 
22  1085 
22  1086 
22  1087 
22  1088 
22  1089 
22  1090 
22  1091 
22  1092 
22  1093 
22  109* 
22  1095 
22  1096 
22  1097 
22  10*8 
22  1399 
22  1130 
22  1131 
22  1102 
22  1133 
22  113* 
22  1135 
22  1136 
22  1137 
22  113S 
22  1139 
22  1113 
22  1111 
22  1112 
22  1113 
22  111* 
22  1115 
22  1116 
22  1117 
22  1118 
22  1119 
22  1123 
22  1121 
22  1122 
22  1123 
22  112* 
22  1125 
22  1126 
22  1127 
22  1128 
22  1129 
22  1130 
22  1131 
22  1132 
22  1133 
22  113* 
22  1135 
22  1136 
22  1137 
22  1138 
22  1139 
22  11*C 
22  11*1 
22  11*2 
22  11*3 
22  11** 
22  11*5 
22  11«6 
22  11*7 
22  11*8 
22  11*9 
IB  115T 
22  1151 
22  1152 
?S  1153 
22  115* 
22  1155 
22  1156 
22  1157 
2Z  1158 
22  1159 
22  1160 
)  22  1161 
)  22  1162 


159 


DATA.a 

02l«023 

-025 

-025 

,027 

027 

,029 

,629 

■  029 

031 

021 

'  030 

22 

163 

DATA, 2 

031.033 

.033 

.033 

.016 

016 

.035 

,035 

■  010 

013 

031 

■  0*3 

22 

16* 

DATA, 2 

037.037 

.008 

■  012 

.012 

012 

.01* 

-01* 

,01* 

022 

3*1 

'  053 

22 

165 

DATA, 2 

020»020 

.018 

•  018 

018 

018 

.030 

■  030 

,032 

032 

051 

■  060 

IS 

166 

DAT*, 2 

03J.032 

-32* 

■  02* 

.02* 

026 

.  036 

,?57 

001 

028 

361 

'  073 

ZZ 

167 

DATA.  2 

0C3»005 

.038 

.039 

.0*1 

0*3 

.0*5 

,0*7 

,0*9 

051 

071 

•  030 

22 

168 

DATA, 2 

053.055 

.057 

.059 

179 

179 

.179 

-006 

,006 

006 

081 

•  090 

22 

169 

data, 2 

0*2. 0*2 

.0*2 

-151 

181 

161 

,052 

,0** 

,0** 

0** 

091 

■  100 

22 

170 

DATA, 2 

0*8»05C 

.050 

■  0*6 

.060 

058 

,1«2 

182 

,182 

183 

101 

■  110 

22 

171 

DATA, 2 

183,35* 

05* 

.05* 

.056 

0=6 

056 

,185 

180 

180 

111 

•  120 

22 

172 

DATA, 2 

180. 137 

,189 

>  189 

189 

191 

191 

191 

193 

193 

121 

•  130 

22 

173 

DATA, 2 

193,195 

.195 

■  195 

.197 

197 

,197 

,199 

,199 

201 

131 

•  1*0 

22 

l/» 

DATA, 2 

231,203 

,205 

.205 

205 

207 

,207 

,207 

,207 

2C.9 

1»1 

'  150 

22 

175 

DATA, 2 

211.213' 

213 

18*, 

18*. 

133 

188 

136 

190' 

190 

151  ■ 

160 

22  1 

176 

DATA, 2 

19C191 

19* 

l»h 

198, 

192 

192, 

196 

196, 

196 

161  ■ 

173 

22  1 

177 

DATA, 2 

202.202 

212 

21* 

215. 

200 

217, 

217 

217« 

219 

171  ■ 

180 

22  1 

178 

DATA, 2 

219.219 

2G*i 

20* 

203. 

208 

208, 

0*1' 

061' 

061 

181  ■ 

193 

22  1 

179 

DATA, 2 

063. 0°5 

065' 

065 

210' 

210 

210 

067 

067. 

067 

191  ■ 

200 

22  1 

180 

DATA, 2 

Q69.069 

069 

20* 

206, 

206 

216 

071 

221' 

221 

201  • 

213 

22  1 

161 

DATA, 2 

218.218 

223 

073 

073, 

073 

220 

220 

075, 

075 

211  ■ 

220 

22  1 

IB? 

DATA, 2 

075.077 

077 

077 

062, 

062 

062 

066 

066, 

066 

221  < 

230 

22  1 

133 

DATA, 2 

079.06» 

06* 

06* 

068, 

068 

068 

072 

070' 

070 

231  ' 

2*0 

22  1 

IB* 

DATA, 2 

07o»o*l 

061 

0»1 

222' 

22* 

22* 

22* 

236< 

073 

2*1  ■ 

250 

22  1 

135 

DATA, 2 

07»»07« 

083 

033 

083' 

076 

0  76 

080 

385' 

087 

251  ■ 

263 

22  1 

136 

DATA, 2 

087< 087 

089 

0S9 

089< 

089 

091 

091 

391- 

093 

261  • 

279 

22  1 

137 

DATA, 2 

093.093 

095 

095 

097< 

099 

099 

099 

101' 

103 

271  ■ 

280 

22  1 

138 

DATA, 2 

ICS'103 

105 

10b 

105, 

107 

107 

032 

08*' 

1">9 

281  - 

295 

22  1 

139 

DATA, 2 

1C9M09 

086 

086 

036' 

HI 

111 

111 

092' 

092 

291  > 

303 

22  1 

190 

DATA, 2 

090'090 

030 

090 

096' 

096 

;96 

257 

100' 

CSS 

3ol  • 

310 

22  1 

191 

DATA, 2 

106«1J»< 

106 

098 

113' 

257 

112 

257 

115' 

115 

311  ■ 

320 

22  1 

192 

DATA, 2 

115, 1„2 

102 

102 

257, 

110 

257 

117 

117, 

117 

321  ■ 

330 

22  1 

193 

DATA, 2 

117,119 

119 

119 

121' 

123 

11* 

125 

257' 

127 

331 

•  3*3 

22 

1<*4 

DATA, 2 

257,116 

116 

116 

116, 

118 

118 

118 

129 

129 

3*1 

•  350 

22 

195 

DATA, 2 

129,129 

2*0 

120 

120' 

2*2 

?«* 

257 

2*6 

257 

35 1 

'  360 

22 

196 

DATA, 2 

2*8,  2*8 

2*8 

250 

25C 

250 

257 

126 

257 

252 

361 

•  370 

22 

197 

DATA. 2 

252,252 

252 

12» 

12*' 

12* 

?57 

130 

2  =  7 

131 

37) 

•  380 

22 

196 

DATA, 2 

Ul'131 

133 

133 

133' 

135 

137 

128 

128 

128 

38) 

■  390 

22 

199 

DATA, 2 

139,139 

139 

1*1 

1*1' 

1*1 

1*3 

1*3 

1*3 

1*5 

391 

•  »00 

22 

200 

0ATA,2 

1*5,1*5 

1*7 

1*9 

1*9' 

1*9 

151 

151 

1=1 

1=3 

»01 

•  »10 

22 

201 

DATA, 2 

2b*,l55 

136 

136 

136, 

157 

159 

159 

1*6 

1*6 

*11 

■  »2o 

22 

202 

DATA, 2 

1*6.138 

138 

138 

13*, 

13* 

13* 

15* 

15* 

15* 

*2l 

■  *3o 

22 

233 

DATA, 2 

1*0'1*0 

1*0 

156 

1*2' 

1** 

1*8 

257 

257 

257 

*3l 

■  *»0 

22 

20* 

DATA. 2 

150'1=0 

150 

152 

152 

158 

158 

158 

161 

161 

4*1 

'  *5o 

22 

235 

DATA, 2 

1&1M63 

163 

163 

165' 

167 

167 

167 

169, 

169 

*5l 

>  *6q 

22 

206 

DATA, 2 

169.171 

171 

l'l 

173' 

173 

1*3 

1'5 

177 

177 

*61 

•  »7o 

22 

207 

DATA, 2 

177,16* 

16* 

16* 

168, 

168 

168 

l'O 

255 

17S 

»7l 

■  *8o 

22 

208 

DATA, 2 

178,166 

166 

17* 

17*, 

162 

162 

226 

226 

176 

*3l 

■  *90 

22 

209 

DATA, 2 

176,228 

228 

172 

172' 

230 

230 

232 

232 

23* 

*9l 

•  500 

22 

210 

DATA, 2 

23*, 225 

227 

OJ* 

002, 

259 

229 

231 

233 

2*3 

50"1 

■  510 

22 

211 

DATA, 2 

239,2*7 

2*1 

257 

2*9, 

251 

257 

511 

■  =17 

22 

212 

B9UND 

* 

22 

213 

LAKDSP 

RES 

0 

22 

21* 

DATA, 2 

008,012 

01* 

022 

020' 

257 

018 

030 

257 

032 

001 

■  010 

22 

215 

DATA,  2 

02*. 026 

036 

257 

001' 

028 

003 

005 

257 

0'j7 

011 

'  020 

ii 

216 

DATA, 2 

009,011 

257 

013 

015' 

017 

019 

021 

023 

025 

021 

•  030 

22 

217 

DATA, 2 

027,029 

031 

033 

016' 

035 

010 

037 

178 

166 

031 

■  0*0 

22 

218 

DATA, 2 

l7*M62 

226 

176 

228, 

172 

230 

232 

23* 

033 

0*1 

•  050 

22 

219 

DATA, 2 

U39<0*1 

0*3 

0*6 

0*7 

0*9 

051 

0=3 

0=5 

0=7 

0?1 

"  060 

22 

220 

DATA, 2 

0=9»?j8 

061 

063 

065 

210 

067 

069 

,206 

216 

061 

■  071 

22 

221 

DATA, 2 

071.073 

220 

075 

077 

062 

066 

079 

,06* 

06« 

071 

>  080 

22 

L222 

DATA, 2 

072*070 

081 

222 

22* 

236 

078 

07* 

,  0»3 

076 

081 

■  090 

22 

223 

DATA, 2 

CBO'085 

257 

087 

089 

257 

091 

09  3 

,C95 

097 

0^1 

'  100 

22 

[22* 

DATA, 2 

099, 10 1 

103 

105 

107 

082 

OP* 

109 

,086 

111 

101 

■  110 

22 

225 

DATA, 2 

092,0^0 

257 

096 

257, 

100 

088 

108 

10* 

lo6 

•111 

■  120 

22 

226 

DATA, 2 

099M13 

112 

115 

102 

110 

117 

257 

-119 

121 

121 

■  130 

22 

1227 

DATA, 2 

123'11» 

125 

127 

11* 

257 

113 

129 

-257 

2*0 

131 

•  1*3 

22 

1226 

DATA, 2 

257,120 

2*2 

2** 

2*6 

2»S 

250 

126 

,252 

257 

1*1 

■  153 

ii 

1229 

DATA, 2 

12*' 130 

131 

133 

135 

137 

128 

139 

'1*1 

1*3 

151 

'  160 

22 

1230 

DATA, 2 

1*5, ;*7 

1*9 

1  =  1 

153 

25* 

,155 

136 

,157 

159 

161 

'  170 

22 

1231 

DATA, 2 

257,1*6 

138 

13* 

15* 

257 

1*0 

]56 

-1*2 

1** 

17) 

•  183 

22 

123? 

DATA, 2 

1*8,257 

150 

152 

158 

161 

1*3 

165 

,]67 

169 

131 

•  190 

22 

1233 

DATA, 2 

171,173 

175 

177 

179 

257 

,006 

0*2 

-181 

52 

191 

'  200 

22 

23* 

CATa,2 

0**«0*8 

050 

0*6 

06  0 

058 

182 

,183 

,  05* 

056 

231 

■  210 

22 

1235 

DATA, 2 

18S<180 

187 

139 

191 

193 

,195 

,197 

,257 

199 

211 

•  220 

22 

L236 

DATA, 2 

201,257 

203 

205 

257 

207 

,209 

,211 

,257 

213 

221 

■  233 

22 

L237 

DATA. 2 

10*. 257 

257 

IBS 

186 

190 

19* 

198 

'192 

196 

231 

■  2*0 

22 

233 

DATA, 2 

2:2,212 

21* 

215 

200 

217 

219 

,20* 

,221 

2lS 

2*1 

>  250 

22 

239 

DATA, 2 

223, 16* 

168 

170 

255 

225 

,227 

0'* 

,002 

259 

251 

■  260 

22 

2*0 

DATA, 2 

229,231 

233 

2*3 

239 

2*7 

,2*1 

,257 

,2*9 

251 

261 

'  273 

22 

2*1 

DATA,? 

527, 5£7 

271 

•  272 

22 

2»? 

BB'J  «U 

* 

22 

2*3 

SPACE 

2 

22 

L2** 

BLM5 

DSELT 

0 

22 

2*5 

OSET 

DATA 

X'Fo' 

1AC 

Hl".E 

IS 

EBCDIC 

22 

12*6 

mBJFL 

DAT* 

HSUFLMi 

22 

2*7 

I  GKI 

DATA 

*'7FFFF 

-FF' 

22 

2*8 

MNUMF 

DATA 

M'.OriSF 

22 

2*9 

mB"CH 

DATA 

32 

22 

1250 

mC"22 

DATA 

2NC-RD 

22 

251 

MC»Ui 

DATA 

K(CnRD2 

22 

252 

\OD 

DATA 

NCwRD 

22 

253 

\hA\P 

DATA 

NHANPAT 

22 

125* 

vU"CTL 

DATA 

NCS 

22 

1255 

MU^L^k 

DATA 

NL 

22 

L256 

NUMSCT 

DATA 

NST 

22 

L257 

MljnvED 

DATA 

NO 

22 

L258 

mPATB 

DATA 

\PAT8YT 

22 

259 

NPB* 

DATA 

NPATBYT 

It 

22 

260 

MRESP 

DATA 

fjKESPAT 

22 

1261 

n.SECT-1 

DATA 

NST-1 

22 

L262 

TBSU 

DATA 

TBSIZE15 

22 

1263 

TBTTE 

DATA 

TBYTE15 

22 

126* 

cs 

DATA 

C» 

22 

1265 

OS 

DATA 

D* 

22 

1266 

FS 

DATA 

F» 

22 

1267 

MS 

DATA 

N» 

22 

1268 

160 


OS 

DATA 

Qt 

RS 

DATA 

R» 

SS 

DATA 

S« 

SCS 

DATA 

sc* 

SPACE 

s 

»D*TA» 

RES 

0 

bLKIt 

DSECT 

0 

DBP 

RES 

l 

KNEW 

RES 

l 

TT 

RES 

i 

SPACE 

2 

BL*17 

DSECT 

0 

ADVINh 

RES 

2«nCwrD 

BIT  INTERLEAVED 

CIC.BYP 

RES 

2*NCWRD 

BIT  INTERLEAVED 

CP«Bo 

RES 

2«NC«»D 

BIT  INTERLEAVED 

IA'JVP 

RES 

2«NCw»D 

BIT  INTERLEAVED 

CNTDR 

RES 

NCR 

CSNTM*- 

RES 

1' 

I 

RES 

1. 

INTNU^" 

RES 

NCR/4' 

IMNU""L 

RES 

NCR/4 

INTOUT 

RES 

(NCR/4)*1 

K 

RES 

1 

STBTlr- 

RES 

(NCH/jm 

Tl«EBuT 

RES 

INCR/«)*1 

tvBK 

RES 

NLR/4 

SPAlE 

2 

BLK1B 

DSECT 

0 

CIt'F 

RES 

2«NC«IR0 

BIT  INTERLEAVED 

C1CTBCF 

RES 

2«NCWRD 

BIT  INTERLEAVED 

STBYO 

RES 

2«NCWRD 

BIT  IKtcoi  r».,rr\ 

Ce'JTAB 

RES 

NCR/2 

Cu*»F f 

RES 

NCR/4 

CYCLC 

RES 

NCR/* 

EM9T[\T 

RES 

16»(NCR/4) 

tMRrgrr 

RES 

NCR/4 

jABBCAbC 

RES 

4"(NCR/4) 

uA*TE".P 

RES 

NCR/4 

^BirE^p 

RES 

NCR/4 

5L*BC 

RES 

4« (NCR/4 ) 

jMIMAbCi 

RES 

4»( NCR/4  1 

juABC 

RES 

4«(NCR/4 ) 

INTDliR 

RES 

16. (NCR/4) 

S>U"l»BCT 

RES 

4«(NCfi/4) 

TKl 

RES 

NCR/4 

*RK8FF 

RES 

NCR/4 

SPACE 

2 

BLM9 

DSECT 

0 

ccs 

RES 

NDP/4 

Df  Ml 

RES 

NLR/4 

JBF 

RES 

(NDR/32]*1 

-11 

RES 

NCR/4 

RA*3CC 

RES 

NDR/2 

SA.vSP 

RES 

NDP/2 

■Ac 

RES 

1 

TS1*«T 

RES 

NO 

SPACE 

2 

6LK2L' 

DSECT 

0 

AVSP 

RES 

1 

UEtOAY 

RES 

NLP/2 

*suay 

RES 

NLR/2 

BOAT 

RES 

NLR/2 

3PC. 

RES 

1 

JPT 

RES 

1 

SO*'" 

RES 

NLR/2 

Vl)AT 

RES 

NLR/2 

SPACE 

2 

BL^ei 

DSECT 

0 

JPATNLM 

RES 

NSR/4 

F^ISECF 

RES 

1 

F-lSTSF 

RES 

1 

HS"UF 

RES 

MBUFlMC 

-1CDF 

RES 

1 

TE*f" 

RES 

NLR/4 

sface 

2 

BLK22 

-DSECT 

0 

cubm 

RES 

512 

CRTBF? 

RES 

512 

CRfDCI 

RES 

1 

CKTSCe 

RES 

1 

CSTFL1 

RES 

1 

CRTFL2 

RES 

1 

FLERFL 

RES 

1 

SPACE 

? 

iiL*23 

DSECT 

j 

EXriiF 

RES 

|NuK/32)*l 

INHIBITS 

RES 

1 

.1 

RES 
RES 

1 
1 

9ALC 

*E  :j 

NLR/2 

i<A-*L'.«  L 

''LS 

1 

■iA-'LN.J 

RES 

1 

3ALC 

RE'S 

NLP/2 

5TP1E-P 

RLS 

1 

,»LC 

RES 

NLR/2 

Tb'JFFli 

RES 

TBSIZE1S 

SP»l5 

2 

n.<S-> 

CELLT 

j 

A—lUl 

RES 

'.LR/2 

CfOIS 

-E  s 

1 

i'Ck 

"l  i 

1 

JSr A 

RES 

1 

F-IS^C 

>>£3 

i 

FSTF-  j 

■".  => 

T 

22  1269 

22  1270 

22  1271 

22  1272 

22  1273 

22  1274 

22  1275 

22  1276 

22  1277 

22  1278 

22  1279 

22  12«0 

22  1281 

22  1282 

22  1283 

22  1284 

22  1285 

22  1286 

22  1287 

22  1288 

22  1289 

22  1230 

22  1291 

22  1292 

SS  1293 

22  12"4 

22  1295 

22  1296 

22  1297 

22  1298 

22  1299 

22  1330 

22  1301 

22  130? 

22  1303 

22  1304 

22  1305 

22  1306 

22  1307 

22  1308 

22  1309 

22  1310 

22  1311 

22  131? 

22  1313 

22  1314 

SS  1315 

22  1316 

22  1317 

22  1316 

22  1319 

22  1320 

22  1321 

22  132? 

22  1323 

22  1324 

22  1325 

22  1326 

22  1327 

SS  1328 

22  1329 

22  1330 

22  1331 

22  1332 

22  1333 

22  1334 

22  1335 

22  1336 

22  1337 

22  133? 

22  1339 

22  1340 

22  1341 

22  1342 

22  1343 

22  1344 

22  1345 

22  1346 

22  1347 

22  1348 

22  1349 

22  1350 

22  1351 

SS  1352 

22  1353 

22  1354 

22  1355 

22  1356 

22  1357 

22  1358 

22  1359 

22  1360 

22  1361 

22  1362 

iS  1363 

22  1364 

IS  1365 

22  1366 

22  1367 

SS  136« 

22  1369 

22  137- 

SS  '.371 

22  137? 
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MfLIDF 

RES 

1 

hSLIUTo 

L  RES 

96 

■.HOLl;» 

r  RES 

1 

PARCBC 

RES 

1 

PT\ 

RES 

7-5 

Rattc- 

<■     3.f>?r 

S""Li 

RLS 

1 

SuXJlS 

RES 

1 

T--<Ea- 

RES 

1 

vhIST 

RES 
SR»CE 

\L'/2 
2 

OL*«?S 

DSE^T 

I 

A-LC 

RES 

NLR/J 

C"-»L' 

RES 

I^"R/j?i« 

ct-'»t 

RES 

s-  =  /2 

Jt'T»r 

RES 

N.-R/2 

3IS 

RES 

cr-*/j2). 

1 

^-i»LF 

RES 

C-rR/i2)«l 

J-  3JE 

RES 

Ni^/A 

FAiLT.b 

RES 

A»^  \.  -3F 

-.  =  ► 

RES 

1 

'B)E* 

RLS 

\S5/a 

\*l 

RES 

SSP/A 

v6>-*lL 

RES 

1 

Sd*u 

RES 

NcR/A 

SECCFC 

RES 

NS* 

SECOFC 

RES 

NST 

-6L 

RES 

nlr/2 

*»|SF" 

RES 

1 

„S«F 

RFS 

1 

-,SF 

RES 
SPACE 

1 
2 

BL*26 

DSECT 

£, 

JATE 

RES 

3 

PRivjATE  RES 

3 

LPBUF 

RES 

ls-6 

SAVKJ 

RES 

1 

SAVRB 

E'JU 
BBunO 

SAv«o 

BLM9P 

OSECT 

0 

CC2P 

RES 

NJR/A 

RA«BCP 

RES 

NJR/2 

RA«SPP 

RES 

SPACE 

BBUnD 

2 

A 

S8tBNT 

DSECT 

0 

aRKBFs 

RES 

A«(NCR/A 1 

18 

RES 

♦•(NCR/»I 

IE* 

RES 

NCR/A 

ENTCrc 

RES 

NCR/A 

SPLIT 

RES 

♦•(NCR/A ] 

DAfL* 

PFS 

Q. 

r_Np 

Br  CLEARED 

AREA 

CO«PN 

DATA.l 

3.2.2.1.1 

2 

1 

0 

1»1«1,2  C 

^  1-1? 

DATA, J 

3.3,3.3.3 

3 

3 

3 

3,2.3.5 

CNT  13  . 

DATA/1 

A.S.5.0.D 

0 

6 

6 

6.0.0,0  CNT  25-36 

DATA.l 

0. 0<6.6. *- 

6 

0 

9 

O'CO.O  C^T  37-A8 

DATA/1 

0'6.6,6,6 

5 

5 

5 

0'6.A.A  C\T  A9-63 

DATa»1 

♦.5.5.5.5 

5 

5 

5 

5< 5, 5. A  C 

IT  6W? 

DATA.l 

A. A. A. A, A 

0 

0 

0 

A, A, A, A  CNT  73-8A 

DATA.l 

A. A. A. A. A 

5 

5 

0< 

5< 5,0, A  C 

T  85-96 

DATA/1 

A.A.A.A.O' 

0 

2 

2, 

2<2<0,0  C 

■T  97-138 

DATa/1 

O'O.O.O.C' 

0 

0 

0 

O'O.O.l  CNT  1C9-12D 

•DATA.l 

2.2.2.0  CNT 

121. 

12* 

SPACE 

2 

U2L1NK 

DSECT 

0 

LINKL 

RES 

0 

DATA.2 

1070. 10SA 

LIM.S 

1.2 

DATA. 2 

A32.AAC 

LINKS 

3. A 

DATA. 2 

608,610 

LINKS 

5.6 

DATA,? 

1270.1190 

LINKS 

7.8 

DATA. 2 

375. A55 

LINKS 

9,10 

DATA. 2 

572.592 

LINKS 

11.12 

DATA. 2 

A05.AA0 

LINKS 

13.  1* 

DATA. 2 

1CA8.A90 

LIN«S 

15.16 

DATA.2 

1050.782 

LINkS 

17,18 

DATA. 2 

775.952 

LINKS 

19.20 

DATA.2 

9A5.A32 

LINKS 

21.22 

DATA.2 

•  3C1112 

LINKS 

23. 2A 

0ATA.2 

1118. A53 

LINKS 

25.26 

D*TA. 2 

363.790 

LINKS 

27,28 

DATA. 2 

865.1327 
1168, a78 

LINkS 

29,30 

DATa.e 

LINKS 

31,32 

DATA. 2 

62A.630 

LINKS 

33, 3A 

DATA. 2 

550,320 

LINKS 

35,36 

DATA. 2 

♦00,638 

LINKS 

37,38 

DATA.2 

265.287 

LINKS 

39. AO 

DATA.2 

628. A60 

LINkS 

A1.A2 

DATA.2 

A32.175 

LINKS 

A3.AA 

DATA.2 

260.516 

LINKS 

A5.A6 

DATA.2 

515.958 

LINKS 

A7.A8 

DATA.2 

925. ASO 

LINKS 

A9.50 

DATA.2 

086.568 

LINKS 

51.52 

DATA.2 

565. 29A 

LINKS 

53.  5A 

DATA.2 

295.322 

LINKS 

55.56 

DATA.2 

313.698 

LINKS 

57,58 

0ATA.2 

690.A85 

LINKS 

59,60 

DATA.2 

♦♦1.582 

LINKS 

61,62 

DATA. 2 

288.700 

LINKS 

63, 6A 

DATA.2 

♦97.^25 

LINKS 

65.66 

DATA. 2 

5C6M71 

LINKS 

67,68 

DATA. 2 

♦  55,5.18 

LINKS 

69.70 

DATA. 2 

5^?.^28 

LINKS 

71.72 

DATA.2 

320.^05 

LINKS 

73. 7A 

DATA. 2 

A7S.A10 

LINKS 

75.76 

DATA.2 

A88.A52 

LINKS 

77,7? 

DATA, 2 

♦68. ♦IS 

LINKS 

79,80 

DATA.2 

♦  78.M2 

LINKS 

81,82 

DATA.2 

♦  62.M^ 

UNKl 

83.8* 

22 

373 

22 

37a 

22 

375 

is 

37* 

SI 

377 

si 

J71 

it 

i;« 

ss 

JA- 

22 

!»• 

SS 

>" 

22 

i«l 

22 

J  *  A 

?? 

J-« 

?£ 

)■• 

?? 

J«7 

if  : 


22 
?? 
Si 
Si 
22 
22 
22 
SS 

SS  1* 
S2  1*29 
22  1*10 
22  1A31 
22  1A3? 
SS  1*33 
22  1A3A 
22  1A35 
22  1A36 
22  1*37 
22  1*3* 
22  1*39 
22  1**0 
22  iaai 
22  1AA2 
22  1AA3 
22  1AAA 
22  1AA5 
22  1»A6 
22  1AA7 
22  1»A8 
22  1»A9 
22  1»50 
22  1A51 
22  1*52 
22  1*53 
22  1A5A 
22  1A5S 
22  IA56 
22  1*57 
22  l«b« 
22  1*59 

sb  i*»s 

SS  1A61 
22  1A62 
22  1*63 
22  1A6A 
22  1A65 
22  1A66 
22  1*67 
22  1A68 
22  1A69 
22  1A70 
22  1*71 
22  1*72 
22  1*73 
22  1*7A 
22  1*75 
22  1*76 
22  1*77 
22  1A78 
22  1A79 
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DATA. 2 

058,0*9 

LINKS  85,86 

DATA. 2 

*95«0UB 

LINkS  87.68 

DATA. 2 

172.1883 

LINKS  89.90 

DATA.? 

1683, .99 

LINKS  91,92 

DAT*. 2 

088,020 

LINKS  93.90 

DATa»2 

♦2*. 512 

1 'NkS  95.96 

UATA.J. 

510.63* 

LINKS  97.98 

data. a 

628.281 

LINKS  99.100 

DATA, 2 

28?. 552 

LINKS  101.102 

DATA, 2 

534.5*7 

LINKS  103.100 

D*Ta. 2 

5o?,?65 

LINKS  105.106 

DATA. 2 

268.071 

LINKS  107.108 

DATA. 2 

o7-»oo2 

LINKS  109.113 

DAT*. 2 

oco.025 

links  iii'ii2 

DATA, 2 

026.025 

LINKS  113.110 

CAT,. Z 

37l»575 

LINKS  115.116 

DATA, 2 

535. »1* 

LINkS  117.11) 

DATA. 2 

325.520 

LINKS  ll9. 

1'0 

DATA, 2 

»00»325 

LINKS  121. 

122 

DATA. 2 

68;. 686 

LINkS  123.120 

DATA. 2 

557.530 

LINKS  125.126 

CATa. 2 

06?. 050 

LINkS  127.121 

DATA. 2 

552.558 

LINkS  129'lJC 

DATA, 2 

735. 70C 

LINkS  131.13? 

DATA, 2 

01?»»5C 

LINkS  133.130 

DATA, 2 

028.010 

LINkS  135.136 

0ATa,2 

512. 6»C 

LINkS  137.138 

DATA, 2 

28?. 5.8 

LInkS  139.1o; 

CAT»,2 

»»;.39C 

LINkS  lol,lo2 

„ 

DAT», 2 

•  18.  »K 

LINkS  103.1-0 

DATA, 2 

020,03b 

LINkS  105,1.4 

DATA, 2 

025. 0U 

LINkS  lo7.log 

DATA. 2 

33'.. o*2 

LINkS  109,153 

DATA, 2 

673.6.8 

LlVS  151,15? 

DATA, 2 

o:?.oj2 

lInkS  153,150 

DATA. 2 

»C3»»i5 

LI-vkS  155,156 

DATA. 2 

360. D 

LINKS  157 

1*8 

DATA. 2 

?35.oac 

LINkS  159.160 

DATA. 2 

555.510 

LINkS  161.16? 

DATA. 2 

5O-.052 

LINkS  163.100 

DATA. 2 

O72.O60 

LINkS  165.166 

DATA. 2 

05:. 052 

LINkS  167.16" 

DATA. 2 

253. 33C 

LINkS  169.17; 

0ATA.2 

225. ?oC 

LlN.S  171.17? 

DATA, 2 

365.336 

LINkS  173,170 

DATA, 2 

362,372 

Li  "»S  175- 17a 

DATA, 2 

1230. 117? 

LINkS  177.17S 

DATA, 2 

60S. 662 

LINkS  179.16; 

DATA, 2 

500.522 

LIN.S  161. IS? 

DATA, 2 

005.362 

LlN.S  193.1-. 

DATA, 2 

092.096 

LINkS  135. 1c6 

DAT  A, 2 

37;, 010 

LINkS  187. lo« 

DATA, 2 

268,216 

LlN.S  1S9.19; 

DATA, 2 

368,0.5 

LINkS  131.132 

DATA 

o.o.o.e.o.o.c 

0.0'C.O.O.C.  O.O'CS.O 

DAT* 

0.5.0. CO. 0.0 

0.0. o.o.o.;.  :.;■'  o.o 

RES 

0 

DATA.l 

0»3»0>C 

LIN.S  1-0 

DATA.l 

0.3.0.0 

LIN.S  5-« 

DATA.l 

00. 1.3 

LINkS  9-12 

DATA.l 

0.7.0.2 

LIN.S  12-16 

DATA.l 

0.0. 0.0 

LIN.S  17,20 

DATA.l 

C.0'0.0 

LIN.S  21-20 

DATA.l 

OO'O'O 

LIN.S  25-i« 

DATA.l 

oo« 0.0 

LIN.S  29-32 

DATA.l 

O'O'O.O 

LI~J.S  33-36 

DATA.l 

C'3.3.1 

LINkS  37-oC 

DATA.l 

J_'JUXlO 

LINkS  Ol.oo 

DATA.l 

0'  0.0.0 

LINKS  05-08 

DATA.] 

O.O'O.O 

LINkS  09-52 

DATA.l 

0.0. 0.3 

LINKS  53-56 

DATA.l 

1.1.3.C 

LINkS  57-60 

DATA.l 

OO'O.O 

LINkS  61-60 

DATA.l 

0.0.0.0 

LINKS  65-68 

DATA.l 

0.0.0.0 

LINKS  69-72 

DATA.l 

o.j.3.1 

LINKS  73-76 

DATA.l 

3.1.3.1 

LINkS  77-80 

DATA.l 

3M.3.1 

LINkS  81-60 

DATA.l 

3.1.3.1 

LINKS  85-88 

DATA.l 

3'C'O'O 

LINkS  89-92 

DATA.l 

0'0'0'C 

LINKS  93-96 

DATA.l 

OO'O'O 

LINKS  97-100 

DATA.l 

O'C'0'0 

LINKS  101-100 

DATA.l 

O'C'O.c 

LINkS  105-108 

DATA.l 

J. 1.1.1 

LINKS  109-11? 

DATA.l 

DO'0.3 

LINkS  113  -  116 

DATA.l 

0'0'O.C 

LINKS  117-120 

DATA.l 

O'O'O'O 

LINKS  121-120 

DATA.l 

0.0'0'C 

LINKS  125-128 

DATA.l 

O'O'O'O 

LINKS  129-13? 

DATA.l 

O'O'O'l 

LINKS  133-136 

CATa.i 

O'O'O.O 

LINkS  137-100 

CATa.i 

3'1'0'D 

LINKS  101-100 

DATA.l 

O'l'3'l 

LINkS  105-108 

DATA.] 

3'3»0.0 

LINkS  109-15? 

DATA.l 

1.3O-0 

LINkS  153-156 

DATa.i 

3.1.3.1 

LINKS  157-160 

DATA.l 

3.0.0.0 

LINKS  161-160 

DATA.l 

3.3.3.3 

LINKS  165-168 

DATA.l 

1.3. 0.0 

LINkS  169-172 

DATA.l 

o.o.o. c 

LINkS  173-176 

DATA.l 

3.1.0'C 

LINKS  177-130 

DATa.1 

o.o. o.c 

LINKS  181-180 

DATA.l 

O'O'O.O 

LINkS  185-188 

DATA. 1 

0'1'0«6 

LINkS  189-192 

DATA 

O'O'O.O. O.O'O 

0. O'C. 0.0.0. 0»0< O.O'O 

22 

1080 

22 

108] 

22 

108? 

22 

1083 

22 

1080 

22 

1085 

22 

1*86 

22 

1087 

22 

1088 

22 

1089 

22 

1*93 

22 

1*91 

22 

1*92 

21 

1093 

22 

1090 

22 

1095 

12 

I  096 

22 

1097 

12 

1098 

12 

1099 

22 

150C 

22 

1501 

?2 

1*:? 

22 

1503 

22 

153* 

22 

1535 

22 

1536 

'I 

1S37 

22 

i»r« 

>2 

15:9 

?2 

is;: 

22 

:»n 

22 

is:? 

22 

•.5:3 

2> 

: » : » 

21 

•.sis 

22 

:»:  6 

?2 

•■>:  7 

22 

isif 

ii 

:v» 

22 

'.^j." 

22 

:62; 

12 

!3t" 

22 

:■>*) 

?.- 

:»<>» 

22 

13'5 

2? 

1626 

2i 

:ss7 

?2 

1».'« 

2c. 

•.5^. 

22 

163' 

?2 

■.53: 

?2 

13" 

22 

•.5  31 

22 

13  <• 

2? 

13  <5 

21 

:sj» 

a 

13  )7 

22 

;=  )« 

2? 

151? 

22 

ISO- 

i2 

IS- 1 

22 

;s-» 

22 

13-3 

22 

ID.* 

22 

13*5 

22 

13*6 

22 

J5*7 

22 

l*o« 

22 

13*9 

22 

135- 

22 

1531 

22 

153? 

22 

1553 

22 

135* 

22 

1355 

22 

1556 

22 

1557 

22 

1S5» 

22 

1339 

22 

136; 

22 

1561 

22 

136? 

22 

1363 

22 

1360 

22 

1565 

22 

1566 

22 

1367 

22 

1568 

22 

1369 

22 

137; 

22 

1371 

22 

157? 

22 

13/3 

22 

15/0 

22 

1575 

22 

1576 

22 

1577 

22 

1578 

22 

1579 

22 

ISH3 

22 

1531 

22 

138? 

22 

1583 

22 

1580 

22 

1585 

163 


j1LN< 


RES 

0 

DATA.l 

50,5o,5o,50>5o»50 

50*50 

so 

30 

D*T»»1 

50*5o«5o»50»50*50 

50*50. 

50 

50 

DATA.1 

50*53,50,50*50*50 

50*50 

50 

50 

DATA.l 

50«5o.5o*50*5o*50 

50*50i 

50 

5C 

DATA*1 

5C. 50,50,50.53.50 

50<50 

50 

50 

D*T»»1 

50. 50.5Q. 50. 50.  50 

50*50 

SO 

50 

DATA.l 

5C» 50.50. 50'50<50 

50*50 

50 

sc 

DAT*,1 

50.50.50.S0.50.50 

50*50 

50 

50 

DATA.l 

5:. 50.5c. 50. 50. 50 

5u*50i 

50 

50 

DATA/1 

50,50.50,50.50.50 

50*50 

5c 

50 

DATA.l 

50,50.50.50.50.50 

50*50 

50 

SO 

DATa.1 

50.50. 5o. 50. 50. 50 

5y.50 

50 

50 

OATA/1 

50. 50. 50, 50.50. 50 

50*50. 

50 

50 

OATA.l 

50.50.50,50.50,50 

50*50. 

50 

50 

DATA.l 

50*  50,  50,  50.  50.50 

5J*50, 

5j 

5: 

DATA.1 

5..50. 50*50.50. 50 

50.50. 

50 

5C 

DATA.l 

50.50,50.50.50,50 

50*50 

5C 

50 

DATa,1 

So. 50, 50. 50. 50*50 

50.50. 

5C 

5n 

DATA.l 

50. 50, 50. SO. 50. 50 

50.50 

50 

50 

DATA.l 

50.50,50.50.50.50 

50.50 

50 

so 

DATa,  i 

So. 50, 50,50.50.  50 

50*50 

50 

so 

DATA.l 

50.50.50,50.50.50 

50*50 

5" 

50 

OaTa.1 

50,50.50.50.50.50 

50*50 

50 

5n 

DATa.1 

50,50.50,50.50.50 

50*50 

50 

SO 

CATa.1 

5:. 50. 50*50*53*50 

50*50 

5C 

50 

CaTa.i 

5.»50*50*50*50*50 

50*50 

5C 

50 

DATA.l 

5C» 50. 50. SO 

:»lpm 

<<ES 

0 

DATA.l 

*  »*2»»o.»2 

DATA.l 

*0.25»*C«25 

DATA,! 

21. 29. 2", 3» 

DATA.] 

2b. 33, 27, 30 

DATA,] 

*6»**» *6*»* 

DATA.l 

»9»»*»»9»i.7 

DATa.1 

36**7. 36. *7 

DATa.i 

38,36,11,36 

DATa.i 

11.36,11,36 

DATA.l 

11.36, 255*255 

DATA.l 

11,3,5*1 

DATA.l 

2*1*1^*1 

DATa.i 

1C.7,13,12 

DATa.i 

ID, 16, IS, 16 

DATa.i 

52,16.52,15 

DATa.i 

56,5a, 122, 12, 

DATa.i 

U9. 1.6.151, 153 

DATa.i 

132*li7*l*3*l!>; 

DATa.i 

IS*. 110, 127,7a 

DATa.i 

1*9,8**79.  157 

CaTa,i 

131. 1»1. 135. 165 

DATA.l 

l*l*15*»l79.19r 

DAT.,1 

183.1.8*1.9.1,6 

DATa.i 

11**111*73,72 

DATa.i 

77,75.90,76 

DATa.i 

156. 15*. 160*156 

DATa.i 

16«»lt>2,lS3.  isi 

DATA.l 

149. 112,76.79 

DATA.l 

155. 1S9. 116. 116 

DATa.i 

56.56.6,.,  107 

DATa.i 

103.61.1CJ.10- 

DATa.1 

Kill  01,96.39 

DATa.i 

86,65*62*68 

DATa.1 

66,70,102,255 

DATa.i 

235.2S5, 255.205 

DATa.i 

99,90.82.97 

DATA.l 

83, 17»,i66, 177 

DATam 

168. So. 91. 255 

DATA.] 

9A, 255. 171,253 

DATA,! 

22.255.92,69 

DATA.l 

95,71,173.105 

DATA.l 

81. ««. 167, 169 

DATA.l 

67,251,2*2,2*5 

DATa.1 

2*2. 2*5. 2***2*6 

DATA.l 

2*6*218,212,217 

DATa.1 

207.2:3,205.208 

DATa.i 

201. 2.6, 200. 202 

DATa.1 

2:;«2.2,19S. 198 

DATa.1 

0*0*  35*1.1 

DATA.l 

2*. 28*31, 32 

DATa.1 

»3,»5,*8,35 

DATa.i 

37,2,3,8 

DATA.l 

125,1*7,138. 185 

DATa.i 

163.192,187,166 

DATa.i 

186.170,99,63 

DATA.l 

2*3*215,216.21* 

DATa.i 

2C9.21C.203, 199 

DATA.l 

198.157 

DATa.1 

0*0 

DATA 

0»0'0<C. 0*0*0*0 

BBoi.D 

» 

DATa.i 

12-.*5.».0 

LINK 

s 

3Bt 

DATa.1 

0***5.120 

L  1 

DATa.i 

7.120.5.* 

L  2 

DATa.1 

*. 5. 120*7 

L  3 

DATa.i 

9*7.120.5 

L  * 

DATa.1 

5.120.7,9 

L  5 

DATA.l 

10,9,7*120 

I    6 

DATa.1 

120.7,9.1., 

L  7 

DATa.i 

6*10*9*7 

L  8 

DATA.l 

7»9.1o'6 

L  9 

DATA.l 

0'11»9<0 

L  lr 

DATA.l 

0*9*11*0 

I    11 

DATA.] 

0*11*10*0 

L  1? 

DATa.1 

9. 10. 11. C 

L  13 

DATa.i 

121*6.10*9 

L  1* 

DATA/1 

7*9*10*11 

L  16 

22 

1586 

22 

1587 

22 

1588 

22 

1589 

22 

1590 

22 

1591 

22 

1592 

22 

1593 

22 

159* 

Z2 

1595 

22 

1596 

22 

1597 

22 

1598 

22 

1S99 

22 

1600 

22 

1601 

22 

1602 

22 

1603 

22 

160* 

22 

1605 

22 

1606 

22 

1607 

22 

1618 

2? 

1609 

22 

1610 

22 

1611 

22 

161? 

22 

1613 

22 

161* 

ZZ 

1615 

22 

1616 

22 

1617 

ZZ 

1618 

22 

1619 

22 

162: 

22 

1621 

ZZ 

1622 

22 

1623 

ZZ 

162* 

22 

1625 

I Z 

1626 

22 

1627 

ZZ 

1628 

22 

1629 

22 

1630 

ZZ 

1*31 

82 

16J2 

22 

•.633 

22 

161* 

22 

16 1; 

22 

-.6  36 

22 

16)7 

ZZ 

1638 

22 

16J9 

ZZ 

16*: 

ZZ 

16*! 

ZZ 

16»» 

22 

16.3 

22 

: »-  * 

22 

:6»« 

22 

'.6. A 

21 

16.7 

21 

:6*« 

22 

16-9 

22 

:*>•>- 

22 

•.'  =  t 

22 

165? 

22 

•.'53 

22 

;6s. 

22 

:6->5 

22 

165A 

ZZ 

16a7 

ZZ 

:6m 

Z2 

1659 

21 

'.66- 

22 

16At 

22 

1663 

ZZ 

16A3 

ZZ 

16A* 

22 

•.665 

22 

1666 

22 

1667 

22 

16*« 

Z2 

1669 

22 

167' 

22 

1671 

22 

167? 

22 

1673 

22 

167A 

ZZ 

1675 

22 

1676 

ZZ 

1677 

22 

1678 

22 

1679 

22 

1680 

22 

1681 

ZZ 

168? 

ZZ 

1683 

zz 

168* 

22 

168? 

22 

16*6 

22 

1617 

ZZ 

1688 

22 

1689 

22 

1690 

22 

1691 
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DATA.l 


9.10.6.121  l-INK    16    GkP? 

DATA.l  122.121.6.10  LINK    17 

DATA.l  10.6.  121-122  LINK    1* 

DATA.l  123.122.12L6  LINK    19 

DATA.l  6.121.122.123  LINK    £0 

DATA.l  2.123.122.121  LINK    21 

DATA.l  121»122.123'2  LINK    ?2 

DATa.1  3.2.123.122  LINk    23 

DATA.l  122.123.2.3  LINK    |* 

DATA.l  12.3.2.123  L    Nk    25 

DATA.l  123.2.3.12  LINK    26 

DATA.l  106.12.3.2  LINK    27 

DATA.l  £.3.12.106  LIN*    ?8 

DATA.l  105.106,12,3  LINK    ?9 

DATA.l  3.12.106.105  LINK    30 

DATA.l  10*. 105.106. 12  LINK    31 

DATa.1  12,106.105.10*  LINK    32 

DATa.1  103. 10*. 105. 106  LINK    33 

DAtUI  106.1.5.10*. 103  LINK    3*. 

DATa.1  17,103. 10*. 105  LINK    35 

DATA.l  105. 10*. 103. 17  LINK    36 

DATA.l  0.17.103.10*  LINK    37 

DATA.l  0.106.22.0  LINK    39 

DATA.l  u» 22. 106.0  LINK    39 

DATA.l  10*. 1^3, 17,0  LIMK    *0    GSP3 

DATA.l  16,15.13.0  LINK    »1 

DATA.l  0.13.15.1*  LINk    *2 

DATA.l  1*. 16. 15. 13  LINK    *3 

DATA.l  13.15,16.1*  LINK    *« 

DATA.l  17,1*,16.15  LINK    *5 

DATA.l  15,16.1*»17  LINK    »6 

DATA.l  18,17,1*, 16  LINK    *7 

DATA.l  16,1*, 17, 18  LINK    »8 

DATA,1  1.18.17.1*  LINK    *9 

DATA.l  1*. 17, 18.1  LINK    50 

DATA.l  19,1,18,17  LINK    51 

DATA.l  17,18.1.19  LINK    52 

DATA.l  20.19.1,18  LINK    53 

DATA.l  16,1,19,20  LINK    S* 

DATA.l  21.20.19.1  LINK    55 

DATA.l  1.19.20.21  LINK    56 

DATA.l  23,21,20.19  LINK   57 

"BaTa.1  19.20.21.23  LINK   58 

DATA.l  2*. 23, 21. 20  LINK   59 

DATA.l  20.21.23.2*  LINK   60 

DATA.l  27, 2*. 23. 21  LINK   61 

DATA.l  98.74,7b. 76  LINk   62   G»P* 

DATA.l  7*. 75, 76, 77  LINK    63 

DATA.l  75.76,77.8*  LINK    6* 

DATa.1  76.77, B», 85  LINK    65 

DATA.l  77, 8*. 85.86  LINK    66 

DATA.l  S*.  85. 36,81  LINK    >>7 

DATA.l  85.86.81.82                         LINK    68 

DATA.l  86,81,82,63                         LINk    69 

DATA.l  81.82.83.96                         LINK    70 

DATA.l  82.83.96.97                       LINK   71 

DATA.l  83.96.97.0                          LINK    72 

DATA.l  0.76.72.70                            LINK    73 

DATA.l  62.73,77.0                            LINK    7* 

DATA.l  0.9*. 59. 63                            LINK    75 

DATA.l  6*. 60. 85.0                            LINK    76 

DATA.l  0.86.61.65                            LINK    77 

DATA.l  65.61,86.0                              LINK    76 

DAT».l  0.81,87.90                            LINK    79 

DATa.1  9C. 87. 81.0                            LINK    "0 

DATA.l  0,82.68,91                            LIN»    f\ 

DATA.l  91.88.62.0                            LINk    "2 

DATa.1  0»83.e9»C                            L1N»    A3 

DATA.l  0.89. 63.0                              LINk    »» 

DATA.l  0.96,100,0                            LINk    95 

DATA.l  0.100.96.0                            LINK    86 

DATa.1  0.97,99.0                              LINK    87 

DATA.l  0.99.97.0                              LINK    9* 

DATA.l  73.72,25.0                            LINK    99 

DATA.l  0.25,72,73                            LINk    9; 

DATA.l  59,73,72,25                       LINk    «i 

DATa.1  25.72.73,59                         LI'k    92 

DATA.l  60.59,73,72                         93 

DATA.l  72,73,59.60                         9* 

DATa.1  61.60.59.73                         95 

DATA.l  73.59.60.61                         96 

DATA.l  87,61.60.59                         97 

DATA.l  59,60.61.87                         96 

DATa.1  88.87.61.60                         99 

DATA.l  60.61.87.88                         100 

DATA.l  89,88,87,61                          101 

DATA,1  6W87.88.69                         102 

DATA.l  100.89.88.87                       103 

DATA.l  87,88.89.100                       10* 

DATA.l  99.10^.89.88                       105 

DATA.l  88.89.100.99                       106 

DATA.l  0.99.100.69                         107 

DATA.l  89.100. 99.0                         108 

DATA.l  69,62.73,77                         lu9 

DATA.l  67, 6*. 60. 85                         110 

DATA.l  68.65.61.86                         111 

DATA.l  93.90,87,81                          112 

DATA.l  9*. 91. 88.82                         113 

DATA.l  23, 98, 7*, 75                        115 

DATA.l  21. 23.2*. 26                        119 

DATA.l  71. 27. 2*. 23                          116 

DATA.l  23, 2*. 26. 71                          H7 

DATA.l  0.2*. 98.0                                                          11 

DATA.l  2*. 26. 71, 70                         119 

DATA.l  7C.7l.27. 2*                          120 

DATA.l  0.9S.2».0                                                         12 
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ZZ 
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•7*» 

22 

1/65 

22 

1/66 

22 

1/67 

22 

l'>« 

22 

;7AO 

22 

17/- 

22 

'./7l 

ZZ 

■77? 
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l/'« 
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Zi 

1/90 

zz 
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zz 
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zz 
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17*6 
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D*TA< 

I     69, 

70,71,26 

DATA/ 

1      26, 

71,70,69 

DATA. 

1     66, 

69,70,71 

UATA. 

1     71, 

70,69,66 

DATA, 

1     54, 

66,69,70 

DATA. 

1     7„, 

69,66,5* 

DATA, 

1      53, 

51,66,69 

DATA, 

1     69, 

66,51,55 

DATA, 

1     56, 

55,51,66 

DATA 

,  1       bt 

,5*,55,5( 

DATA, 

1     3»  = 

6,55,51 

DATA, 

I     54, 

55,56,0 

DATA, 

1     O't 

2,70,0 

DAT«, 

1      69, 

62,63,61 

DATs, 

1     62, 

63,61,65 

DATA, 

1     63, 

61,65»9& 

DATA, 

1      64, 

65,90,91 

DATA, 

1      65, 

9o,9l,C 

DATA, 

[     ~ '  £ 

9,62,73 

DATA, 

1     59, 

63,66,0 

DATA, 

1     54, 

67,64,6c 

DATA, 

1      61, 

65,63,55 

DATA, 

1     55, 

68,65,61 

DATA, 

1     87, 

90,93,36 

DATA, 

1     56, 

93,90,87 

DATA, 

1     88, 

91,91,0 

DATA, 

1     0,5 

1,91,88 

DATa, 

I     6<S, 

67,66,0 

DATA, 

1     93, 

68,67,66 

DATA, 

1     54, 

67,68,93 

DATA, 

1     91, 

93,68,67 

CATa, 

1      67, 

68,93,91 

DATA, 

1     0'5 

1,93,6S 

CAT«, 

1     93, 

91,0,0 

DATA, 

1     0»" 

1.75,0 

DATA, 

1     O'C 

,0,0 

DATA, 

1     0,5 

1,67,61 

DATa, 

1     6b, 

68,55,58 

DATA, 

1     56, 

55,65,65 

DATA, 

1     9j. 

93,56,0 

DATA, 

1     G'5 

6,93,90 

DATA, 

1      76, 

72,70,0 

DATA, 

1     8*, 

59,63,o6 

DATA, 

1     86, 

61,65,68 

DATA, 

1     81, 

87,90,93 

DATA, 

i    82, 

88,91,91 

DATa, 

1     51, 

58,55,68 

DATA, 

1     68, 

55,58,51 

DATA, 

1     52, 

5<,58,55 

DATa, 

1     55, 

58,51,52 

DATA, 

1     53, 

52,51,58 

DATA, 

1     58, 

51,52,53 

DATA, 

1     42, 

53,52,51 

DATA, 

1     51, 

52,53,12 

DATA, 

1     0<« 

2,53,52 

DATA, 

1     52, 

53, 12, J 

DATA, 

1     0,1 

2,11,10 

DATA, 

1    to, 

11,12,0 

DATA, 

1     12, 

11,10,39 

DATA, 

1     39, 

10,11,12 

DATA, 

1     11 

10,39,33 

DAT-. 

1     33 

39,10,11 

DATA, 

i    i: 

.39,33,50 

DATA, 

i    5: 

.33,39,10 

DATA, 

1     33 

,33,50,32 

OATA, 

1     32 

,50.33,39 

DATA, 

1     33 

,5o,32,Jl 

DATA, 

1     31 

,32,50,33 

DATA, 

1    5; 

32.31.C 

DATA, 

1     0, 

31,32,50 

DATA, 

1     o, 

- ,  2 ,  C 

DATA, 

1    o. 

-,0,0 

DATA, 

1     0, 

:« 120,0 

DATA, 

1    o* 

:<i20,o 

DAT-, 

1    c 

5,9,0 

DATA, 

1     0, 

5,1„,G 

DATA, 

1    o. 

'•11,0 

DAT», 

1     j. 

KIllO 

DATA, 

1     0, 

;, 121,0 

DATA, 

1     0, 

DM21,0 

DATA, 

1     J, 

^,123.0 

DATA, 

1    ill 

5»12#0 

DATA, 

1    J, 

>k<j 

DATA, 

1    c< 

i,  15,16 

DATA, 

1     0" 

5. 15. 13 

DATA, 

1    c , 

3»  17,  103 

DATA, 

1    c 

5,76,72 

DATA, 

1     j. 

:,8»<59 

DATA, 

1    o. 

;<82>iB 

DAT-, 

1        L* 

5,97,99 

DATA, 

1      0, 

1<89,53 

DATA, 

1     0, 

5>l-_:>9& 

DATA, 

1     62 

88,91, 0 

UATA, 

1     J, 

5, 6a, 62 

DATA, 

1     D, 

■« 5i,67 

DATA, 

1     J* 

~ ,  5  3 ,  0 

DAT-, 

1     u' 

:«i2>»i 

DATA, 

1     39 

13,11,0 

DATA, 

1      u. 

DATA, 

1     0, 

5,1  j, 11 

DATA, 

I     32 

50,  J3,0 

DATA, 

1     2  = 

29,31,'. 

DATA, 

1     c» 

j, 31. 32 

DATA, 

1     ;  , 

•31,29 

DATA 

.  , 

■,0.0,3,0 

DATA 

50,0,0.3 
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HO 
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111 
115 
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H7 
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151 
157 

LINK  157 
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163 
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165 
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168 

169  G°P6 

170 
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172 

173 

174 
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176 

177 

178 

179 

ISO 

181 

182 

163 

181 

185 

186 
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188 

169 

190 

191 
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933 
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9?? 
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SP"VT 

JALPM 


sjom 

I.CONT 


QCNTSI 

NCISWP 
Nit  I  UP 


»CCR 

•         NBL 

set 

\G"<PS 
-IISCL 
CIC1MH 

CVCREF 


!Nta 


PATNG 
ABOSmT 


B6Uf«0 
RES 

DATA.l 

SPACE 

BOUND 

DSECT 

DATa.1 

DATA.l 

DATA.1 

OATa.1 

DATA/1 

DATa.1 

DATA.l 

DATa.1 

DATA.l 

DATA.l 

DATA.l 

DA.UjI 

DATA. 

DATA, 

DATA. 

DATA.l 

DATA, 

OATA, 

DATA. 

DATA, 

DATA, 
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DATA, 

DATA, 

DATA, 

DATA, 

DATA.l 

BBUND 

DSECT 

DATA.l 

DATA,] 

DATA.l 

DATA.l 

DATA.l 

DATA.l 

DATA,] 

DATa,i 

DATA,1 

DATA 

BBUnO 

DATa,1 

B8U.\0 

DATA.l 

Beu\D 

DATA.l 

B8usD 
DATA.l 
DATA.l 
RES 

DATA.l 
BBUmD 
DATA 
■  NL 
DATA 
DATA 

DSECT 
DATA 
Data 
DATA.l 
B8U'\D 
DATA.l 
DATA.l 
DATA.l 
DATA.l 
DAT..1 
DATA.l 
DATA.  1 

DATA 
DATA 
B9U\D 
DATa.1 
DSECT 
RES 
DATA, 
DATA, 
DATA, 
DATA, 
DATA. 
DATA, 
DATA, 
CATa, 
DATA. 
DATA, 
DATa. 
DATA. 
DATA. 

DATA. 

DATA. 
DATA. 
DATA, 
DATA. 
DATA. 
DATA. 
DATA, 
DATA. 
CATa. 
DATA, 
DATA. 
CATA. 
DATA. 
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ICO'lOC 
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100» IOC 

ISO. IOC 

100. IOC 
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100' ll* 

11*. 11* 
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lOO'lOO 

ICO'luC 

ISO' too 

ICO'loC 
100.1  JO 
ICO' loo 
lOO'lOO 
100.100 
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100' loo 

loo* loo 

lOO'lOO 

lro'loo 

lOO'lOO 
1C0« 100 


.100. 
,100i 
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,100/ 

•  100i 
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.11*' 
.lit' 
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DATA/1 

2/»»0'G                                 123 

DAT-/1 

j.0»0.0                               12*   *-'p 

.EXIST 

:>I«S 

HES 

NORM 

Bfc.LT 

k;s 

^CR/4 

S-TA-iC 

RES 

»»(NCR/*1 

ifL 

RES 

»»(NC^/l>) 

Su-'*CtC 

RES 

\to/l> 

69bO 

b 

juMfr. 

DSECT 

■j 

JNTF 

RES 

5 

•              'w 

■MEM    *F 

I  .Tt^FAC    a8DE    PAI^S 

MNTFC 

DATA 

9/2/1/1/1 

vO^P  1 

DATA 

1/13/12/13/1* 

•          KTrwFACL 

9Dt    SO-bERS 

I\r\ 

DAT. 

73/ 59/ 60/ 61/ 87, 58.72/ 75, 9P 

/23<23. 133/10. S5 

|\TN2 

DAT* 

62,63/6»»65/90,91>7;«7l,?» 

.2H.95/ 17,6/58 

Ix, 

TERFalE 

LIMK    \U~IBERS 

ul  «"* 

DATA 

110/0/0/165. 111. 0»ll2«l66. 

113.167. U».16« 

DATA 

:/ 16*/ 157/ 0/122. 135/ 62/ 119. 

3/116/38/.  1 

DATA 

15. 17/ 169/170 

A.UT9F 

E^u 

AJV INm*1 

CIOE* 

EOJ 

CICtfvPM 

CICSF 

ECvi 

CICTStf «1 

C-'L*- 

E.o 

CICTF.l 

PStTCF 

EUU 

CPA9Q«1 

SPLCHi 

E^j 

SE~"1S**1 

T«A\,bF 

EUu 
EV^ 

STaro.i 

22  2223 
22  222* 
22  2225 
22  2226 
22  2227 
22  2228 
22  2229 
22  2230 
22  2231 
22  2232 
22  2233 
22  223" 
22  2235 
22  2236 
22  ?237 
22  2238 
22  2239 
22  22"0 
22  22»1 
22  22»2 
22  22*3 
22  22. » 
22  22»5 
22  22»6 
22  22*7 
22  22»8 
22  22»9 
22  2250 
22  2251 
22  2212 
22  2253 
22  2250 
22  2255 
22  22-16 
22  2257 
22  ?2?t 
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2.6.88    ROUTINE  MACRO 


•        "ACRB  56  1 

SUBRBul  I  <E   '"uc^p  56  ? 

DINENS1BN   LtV5SF(4)»LEV5S(i.]  56  3 

CBNMB'J    />JL^/    LEV5SF,  IRADHO  56  It 

CS^MSrl    /-»8lUSB/    SUROM^tl.-lLDSPLen.-iLDBFFll,),  [GATE",  IGBTTM  56  c 

I^UbEl-    SU«CB\,ML5SpL/HLD9^  56  6 

I vrtOEf.    Shulg,pv,ps  56  7 

DI"E««SIBM    ISBIe.B)  ,MDATA(2,S),"ICVCLE|«.),CYC(8.5>,  I'.TFii),  IVTRSU5I    56  1 

CS•1^9^     /oL«/    ISB.MCVCLE.CVC.  ISO(o)  56  9 

CBihBN/BLKZ/IMRS  56  13 

CBMM8N/BLK3/    Pv<262),PS(262>  56  11 

C91MBW/BLK1/    DATA!  l»<t,8>»NL  56  1? 

CSMhB:.    /3L.SLV5/    LE  vL5A#SRT\5,  EMD5./END51,  IInCTs,  m  IN5F,  6pT  I  ME,  8PT  IN      56  13 

nlEBER    SRTN5,E>^D5,E:iDbl.9l»TlME.BPTI\  56  1» 

CBMMBIM    /BL«7G2/    LEV58Ct),CYCL9(8>,INF9l5l»>»SUB8,  JREBPT  56  15 

CBMMBM    /BL«89/    ITSAVE,h8lOF<CP<275>/CSI275>  56  16 

C               AOOITIBNAL    CASUS    F8R    INTERFACING  56  17 

CSMMOl/BLK^/nTfLii  56  1? 

LBjICAl    STRM»>»    ST«1,    STR2,    STR3,    STR»,    T«INT  56  19 

CSM^B:;    /BL<5/    IBRD,     IxT,     ITR0L*»     JL I  *  I  k  >  56  23 

EQUIVALENCE       (STKF(l),    STR1),     (STRF(^),    STR2I,     (ST*F[3)/    STR3],            56  21 

1        ISTRt  (»),    ST'Mtl  56  22 

DATA    LEV59/*«0/  56  23 

DATA    NSUB8/0/  56  2K 

DATA    trCu8/8»0>/  56  25 

DATA    IkPM/5«C/  56  26 

DATA    P»,  PS/262*."',  262^0/  56  27 

D»TA    URS/o/i IC80NT/0//IPASS/0/  56  28 

IFI IPASS.NE.3)    G8    T8    200  56  29 

IRLBPT    .0  56  30 

IF!END:>.NE.O]     IPASS.l  56  31 

IVTFLG    •    0  56  J? 

C  56  33 

lji    C9NTIl\uE  56  3» 

CALL    RTNS  56  35 

IFI  lCBuNT.E'J.OI     Li9    T3    200  56  36 

CALL    SEGL9DI3)  56  37 

CALL    PREDICT  56  39 

IFI  IPASS.\E'.'I    G9    T9    2UC  bb  39 

IFIITRLLY    .NE.    0IG9T9    556  56  10 

CALL    FlBDECI  56  "1 

IFIK.E^iC)    G9    T9    200  56  »P 

09    HO       I.l,<t  56  »3 

uE«5S( | I    .    0  56  »« 

110    CBNTInlE  56  »5 

u»0  56  "6 

09    100     I"l,»  5a  *7 

STWFII)     .    LtV5SF(I)     >NE.    J  5b  US 

|FILEV5SF(I) )5»100,5  56  "9 

5            CBNTMlE  56  50 

U    •    U    ♦    1  56  51 

i_EV5S<„>    .1  56  5P 

|F(LEVjS(  J).NE.LEV59(  Jl  I     IRE9PT.1  56  ->3 

LEV59(.,)>l.E<'5S(  J)  56  5» 

1UJ    CSNTINuE  56  55 

iriLEVnilll'EQ'O)    G9    TB    200  56  56 

IF{ IRALRD.EU-1)     IRE9PT    .1  56  57 

C  56  5» 

C    *001TIB\iaL  CAKDS  FBR  INTERFACE  56  59 


C 

C         CMEL<  FUN  AOUACE^T  SECT1B-.S  REQJIRI-.3  I'.TERFACI.G 

TRINT  •  3TR2  .BR.  ST^3 

IF  (TR1NT)   I\TFLG  ■  1 

CALL  SE3L9JI2) 

CALL  RTSNCILEV5S, I  I uji 

IFI IREOPT.EU.O)  Be  TS  200 

CALL  SESL8-.I  1  ) 

CALL  LSTSOSI I IUU) 

IT*DLY»1 


ADD1TI9. 

.AL  CARD 

FB« 

I..TLRFALF 

CALL  St 

■Gi_9aU(» 

1 

IFI  INTl 

LG  .^E. 

1 IGOTt)  50J 

CALL  P'TFC 

IF  IMTE- 

■FACT 

^G  GR8UPS 

RLOO 

CALL  I' 

.TFC 

buj 

CBNTIvk 

,E 

CALL  TW\PAi 

TJ-IN  8' 

.  TWa'Jgi: 

>TI9^ 

FLAGS 

CALL  TkFlG 

IRALRD 

•  0 

SOD 

C9MTI  -lLfc 

ICBUNT 

•  1 

RETuHN 

.6 

ITRULVi 

ij 

GS'B  2 

jj 

E\u 

bo 

ftO 

56 

61 

56 

62 

5b 

63 

56 

**lt 

56 

65 

56 

66 

56 

67 

b6 

6a 

56 

69 

56 

70 

bb 

71 

5b 

75 

b6 

'3 

56 

7<i 

bb 

75 

''b 

76 

bb 

77 

bb 

7S 

56 

79 

56 

HO 

bb 

"*  1 

bo 

"■2 

5b 

'3 

56 

■31. 

5b 

S5 

56 

96 
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2.6.89    SU  BROU  TIN  E  FMODE 


BadTl  il:     f"i3Jt 


Ff.906 
S.HR9UTISE    F-^jflO 


CB'Wi    /*L<lb/       CMSET 

,       MBUFL 

, 

I3P| 

.    -inumf                   <       nS^Ch 

.       MC22 

1 

MC.O? 

•     \Cw<)2                        ,        N1ANP 

,       NKCTL 

1 

N^L^K 

•    \"SCT                    ,       NMvEfl 

,       ».PATB 

J 

»P8k 

•    >WESP                    ,       NST11 

.       TBSW 

J 

TBvTE 

•    CS                            /       OS 

.       FS 

1 

MS 

.  as                   «     ks 

,       SS 

f 

scs 

C9">W9N    /OL^S/    »HCC(13S>.    C 

>«AK17). 

C'TAB(25 

81/ 

•    3TTAB(25a>       ,       CISI17) 

.       D"ALF 

17)          , 

oiaCE 

.    FlT».j(890>       »       HSF 

,     reoES 

, 

NAI 

•    V9FAL.    SBAKffcS).    SECFCU), 

SCDFCU), 

V9L(13b) 

39    10     l.l»»"SCT 

C»LL    3fcTBY(U^80E.  I,  ICC) 

[F(  ICD.NEi3l    Ci*    T9    10 

ae  re  2; 

10    C8NTIS0E 

20    Ce^TlMut 

3E'U«  J 

E\0 

58 

58 

58 

58 

58 

58 

58 

58 

58 

58 

10 

58 

11 

58 

1? 

58 

13 

58 

Id 

58 

15 

58 

16 

58 

17 

58 

16 

58 

19 

58 

20 

58 

21 

58 

22 

58 

23 
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2.6.90    SUBROUTINE  OUTTBF 


•  •    BuTTl-F 

•  Sj^RBUTINE  T1  SuTPjJT  GC-2  TAPf  BUFFER 

DEF  9UTT3F 

REF  "«r 

REF  9SETJP1 

SUTTsr    BAL.6  9SETJP1 

GEI-..3.2.  l.TdUFF 

ST., 15  PT'Pl 

_a>6  HHF 

BEZ  RTN 

R3,  J  0 

8CS.it  RTN         .EXIT  IF  SENSE  S.ITC-I  2  SET 

•  SET  UP  OUTPUT  bUFFER  ADDRESSING 

L»«l5  .TBUFF 

LI.l  1 

STri,15  TIrE5,l 

SAS.15  2 

ST«,15  wWITAP 

STB.l  «HITAP 

L«,1J  RECDInG      "AS  A  RECBRD  BEEN  «RITTE«. 

BEZ  CALTP 

Ll.U  0 

ST«,10  RECDING 

CALTP     BAL.15  TSTAPE 

B  RTN 

Ll»C  DA(.RITAP) 

SI8.J  X'El' 

MTw.l  RECDING 

LI.2  0 

AI.2  1 

Cl<?  ICO 

BG  RTN 

TI9, 13  X'El' 

BCS.8  »-k 

LI.O  DA(«RIE8F) 

SIB, J  X'El' 

RTN                 RES  0 

B  .PT-Pl 

B8u>\D  8 
TI-1E5           %EN,8»7.17    X'lO'.O.O 

BBo'3  8 

„R1TAP          RES  1 

GEN, 16, 16    G.5536 

.RIEBF          GEN, 3, 2k  X'73',0 

DAT*  0 

WECOlNG      DATA  0 

TSTAPE         TIB, 13  X'El' 

6CR.12  TDVTP 

6CS,8  «*3 

LI. 7  5 

B  »*3 

bCS»k  »-2 

li. 7  a 

TPERR              MI,  7  5 

AI,7  ERRMESS 

ST„,7  TYPE»UT»2 

CAl1.2  TVPEBLT 

B  «15 

TCVTP              REa  0 


MT„.l 

15 

B 

•IS 

PTMP1 

DATA 

C 

TBUFF 

RES 

1 

MUtlB 

DATA.i 

C.X'aO'.x,60'.x'02' 

ERX"ESS 

TE»TC 

'  sue   TAPE 

1ANJAL 

TE*TC 

•   VSB  TAPE 

INT  PEND 

TE.TC 

l   VSB  TAPE 

BUSY 

TEaTC 

'   vse  TAPE 

UNSU  END 

TEaTC 

•   VbB  TAPE 

UATA  BVR 

TE.TC 

•   VSB  TAPE 

NBT  HECG 

TVEBlT 

DATA 

»'02j03000' 

DATA 

*'820C0000' 

DATA 

c 

'1ASK1 

DATA 

ENU 

x'kOCOOOOO' 

2* 

1 

2k 

? 

2» 

3 

2k 

k 

2" 

5 

24 

6 

2k 

7 

2k 

8 

2k 

9 

2» 

10 

2* 

11 

2» 

12 

2<t 

13 

2» 

Ik 

2* 

15 

?* 

16 

2k 

17 

2« 

1  A 

2k 

19 

Z« 

2: 

2i 

<M 

2. 

22 

2* 

23 

2k 

2» 

2- 

25 

2* 

26 

20 

27 

2* 

26 

2k 

29 

2» 

3: 

2* 

31 

2» 

32 

2» 

33 

2* 

3k 

2* 

3! 

2» 

36 

2* 

37 

2* 

3! 

2* 

39 

2<> 

<*c 

2» 

•1 

2« 

k? 

20 

"3 

2< 

kk 

2k 

»5 

2k 

"6 

2" 

k7 

2k 

»8 

in 

"9 

2* 

50 

24 

51 

2« 

52 

2* 

53 

20 

5» 

20 

55 

2» 

56 

2* 

57 

2* 

55 

2« 

59 

2* 

60 

2» 

61 

2» 

62 

24 

63 

2k 

6k 

2k 

65 

2* 

66 

2k 

67 

2k 

68 

?k 

69 

Sn 

70 

2k 

M 

2k 

72 

2k 

73 

2k 

7k 

2k 

75 
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2.6.91    ROUTINE  RTN 5 


RSJTI  ■<(.'■ 


CJfrilNTS    RTA5    AND    RTVFT 


D*LP<17> 

E9DC 

HBUfL 

ISPI 

NCW22 

MC»oa 

N-1CTL 

NMLN< 

NPATB 

\Pd« 

T3SU 

TBYTE 

F  S 

NS 

SS 

scs 

69)/  - 

BF(17! 

Ra»iSP 

2SJ) 

RTC 

•         *T\b  C91BI\ES    RTN5    ANJ    PTNFT 

SJ6R3uTI'«F    -<T'vb 

CB1«8w    /RTT5/    TBurF(138»)iTBSIZE 
I^TEC'E-    TBjFF.TRSIZE 
ce"f9  i    /il^i/    -\,     \DLNK(69>.    TT3, 

•  IT7 
C5  — 3'.    /oL<l  1  /       HSB15I32)  ,        lG15(n») 

;  ln-.di  (6t),NB9L<69)»NB<cs»NBr«T(.»)< 

.     T3SU 

CB^B'i  /3L<13/   DWLI259) 
1  riAb,  FTB..J.  iBEir(69) 

C8"I-9N  /yL<15/   CHSET 

•  \C*RB  ,       N1ANP 

•  \1SCT  ,       .\1,E0 
.    \«ESP  ,       NST>"1 

•  cs  j     os 

•  liS  >      rs 
C3^0'.    /6L<19/    CC2U29)/     D 

.    -I  (31  )  »       RA„8C<258> 

•  TSTR.T1516) 

C°''MB-.    /^L<l9P/    CC2P(129)#M*  v9CP<255l,:-'A»SPP(?3«.l 
CS^MB J    /dL<2»/    ArfIST(li8l»    CvCISj    BCF» 

•  OSK  ,       F1TBB  ,       FSTfL  »       MLIBF 

•  HUIDTI94)  <       NHDAY  ,       PRC3B  .       PTM7»5I 

•  SHTFL,S-iOIS,T"PS-l/ VMtSTl  1  Jil 

C9-M9,    /JL<25/    AHCC<13<J)i    C-'AL(17),    CJTAF>(268>/ 

•  3'TAbi558)       ,       BIS(1?)  ,       B«ALF(!7)  ,       B*BD£ 

•  FlTAo(SOO)       i       hpf  ,       WBOES  .       NA] 

•  \BFAL,     oBaK(63),    SECFCI*)'    SCBFC(t)i     V8LI138) 

C9V'MB\    /m«.*lb/    LEVL5A»S.*:T\5.r:N'D5«EN051»"INCT5<'J!I\5F,9=T! 
I  v'ERE><    SRTNj,EN05»E'.D51«9F>Tpit»'JPTI\ 
BATA    TcSI2t/13Bi./ 
BATA    LL l/Kvl/76736,»b/ 
CALL    TtrBAYl  TBjFF) 
ISTX.9 

B3    K     l>3«THSUE 
.'■    T-JFF  (  1  ).Q 
I.Nh»E„+l 

-  :b\ti\ue 
►ai\  betectsr  l"9p 

I3ET.C 

HL\C. 
IRLSP. 
HLN9.  .. 
I3CCF. 
ISPEEB.: 

;    C9NTI-..E 

IF  I  I.  Li  •  :■)      IB    '9     1„C 
CALL    HALF(B*L.I»L!NK) 
LINK     •     LINK     ♦     1 
CALL    SLTJY(MDLN<»LIM<j:<00) 
CALL     >t  TJY(NBBL.LI\<»MI  ) 
in      -I     .jT.    ."     ]     o?    T9    35 
1=1.  .1 


\LY    '4NE    BETECTBR/    LI\K 


Cr'  TI 

■  Si  IV 

Nll.i 

L9     T.9    .1 
CS^TISl.E 

I'l-l 


C    Tr-IS    TAHLE     IS    I'<C3NSIoTrST    „ITH    TME    ASSF_"JLv    LA\r,JA,jE 

C  Yr-JSIB'.    ;;F    UC-l 


►  1    CALL    -itTJI  (  J. LP.  I,  ICBj.M 


C  K->T    Fr.-R    Dj"11"*    CETF.CT9R 

Ir(  ICB.E..1 I     53    T9    bo 
C  I\    SC-1    THIS    IS    A    oYTE    vARlAsLr     -ITH    VALUE    15    F8R    DUn^IrS 


jJT    PAlLtB    DLTECT8R    -3 1 T 
CALL    GLTbl CU^ALF.I, IBFjQ) 
1F( IBF.NE.O)    GS    T9    60 
CALL    jtf3Y(CC?P, 1, IRC) 
CALL    h*LF(«a sSPP/I. IKS) 
CALL    -imLF(-a„9CP*  I.  IRBI 
I9Ci<  Il.9»8i/16 

clear  cbi.me-,  anj  ra*  accu-iulatbrs 

CALL    P«BYTiLC2F, I»o) 
CALL    Pk.h«(RA,sPP»  I  '  0  ) 
CALL    Pnriw(^4*BCP/  I. CI 
IRLNCIRlNCMRL 
IRLSP.lRLSP+IRS 
IRLm8.IRlN3*I8C 
6B    CBNTINuE 
\30.\0u-l 


59 

59 
59 
5=> 
59 
59 
5? 
59 
59 
59 
59 
59 
59 
59 
59 
59 


59 

?T 

59 

ai 

69 

<>p 

59 

53 

59 

2* 

59 

25 

59 

26 

5<J 
5  9 

3? 

59 

43 

59 

41. 

59 

35 

59 

■>6 

69 

37 

5^ 

J» 

59 

39 

69 

•*C 

59 

-1 

59 

it? 

69 

»3 

59 

<*A 

59 

»E 

59 

51 

59 

52 

59 

53 

59 

64 

59 

->5 

59 

66 

59 

57 

59 

6« 

59 

69 

59 

*>? 

59 

61 

59 

*.P 

59 

63 

59 

64 

59 

65 

59 

66 

59 

67 

59 

6? 

59 

69 

59 

7- 

59 

71 

69 

/? 

59 

73 

69 

7k 

59 

75 

59 

76 

59 

77 

59 

70 

59 

79 

59 

HC 

59 

■H 

59 

*? 

59 

"3 

59 

HA 

59 

15 

59 

96 

59 

97 

59 

86 

59 

89 

59 

9C 

59 

91 

59 

92 

59 

93 

59 

9* 

S9 

96 

59 

96 

59 

97 

59 

90, 

59 

99 
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IF.(MDD.CiT.C  )  G9 
FS.<Fe«<-  RTNFT  c* 
CALL  ..t.TBV[UFAI 
)F(  If  AIL'E-,*') 
CALL  haLF(v«IST 

CALL  HaLFiahisT 
I3CC-If-9ol^C/32 
ISU«( I v9L«32766 
C9  T8  oJ 
70  C8MTINLE 

I^9L»( 1«LNC«9PT 

isp.(  mLSP»^vi  i 

IS».ISp.LLl/655 

IS".  U.  ISP/**  J 
I9CC.IhLM9#S/<9 
S'J    CSMI'Mi.E 

CALL  P».H*{TBOFf 
CALL  Pi^MMTBuFF 
C»LL  Ph-mitbuff 
CALL  PkHi.(TBJF>" 
C»LL_fV<«  (  T BJFT 
CALL     P«.rl*(TBJFf 

ISTx.ISTx»10 
o9  T9  CJ 


T9  10 
LCULATIONS 
L<LI"»<.  1FAIL) 
G8  T9  70 
»LINK, IhST) 

iLISK(  I-ifJ) 

76K 

)/( I«9.180) 


I  n  )/».n 

/IRL^C 

36 

PT1ME..90) 

. ISTX,LI*<> 
,ISTX+1jIF>IL) 
. IS^x*?, IVBL) 
,  ISTX*3, ISP) 
, ISTX+A, I9CU 


ISTX«5«I0F| 


n',  ; 


S^TIS,. 

ALL    9^TTBF<TBk. 
;TuP\ 

mj 


59 

mo 

59 

101 

59 

10? 

59 

103 

59 

1014 

59 

105 

59 

106 

59 

107 

59 

106 

59 

109 

59 

110 

59 

111 

59 

112 

59 

113 

59 

11» 

5J 

115 

59 

116 

59 

117 

59 

118 

59 

119 

59 

120 

59 

131 

si 

15? 

59 

123 

59 

12» 

59 

125 

53 

126 

59 

127 

59 

1?» 
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RBUT1  -i- 


2.6.92    SUBROUTINE  TRFLG 


sj-'RSjti.'.e    T-iF,.3 

INTB'Jtx    T»A'<SF 

t3JlV*LE  -Ct I T^A\br,STBV5(?| ) 

.  ClivT  j(65)  «  C J^iT'F  (  Jl  ) 

•  EN8FFI  31)  ,  :,r>.iT(  l^l) 

•  oLAHCc  ',  S»l  ,  o'Jj'jI  !  ?») 
.  SSSSl  ;?<)  ,  T<  CI  ) 

THfLo     INTERLEAVES     Th£     T<5>L 


CTflaF(r) 
CYClC(31 I 
3»»TPm  ] 
GuAoCi 1?»  ) 
•  *«F<31  I 
A\a     STBVC     A9HAYS     «IT 


STcY^IS) 
E\I\T(»96I 
jJ.TPIjl I 
ISTIjd.961 


9\ES 


6553d  DECI-'Au  •  16  9AES  oKaWY 
0*TA  L9C/65535/ 

ST3KL  32    '^E5  IN  »09CS  1.3,5.7  8F  THE  TOANSITIBV  FLa5  »B«»Y. 
STSBE  JZ  ».FS  IS  »t}»QS  ?,»,6,8  9F  The  STbvD  ARhAY 
OS  10  1.1.7.2 

CALL  PTHLFlT^A^SF.c'l.l/LSC) 
CALL  OTHLF(T^A'.SF,i»l,i.BC) 
CS^TI  .uL 
RET  US". 
(NO 


61 
61 

1 
? 

61 

3 

61 

» 

61 

5 

61 

6 

61 

7 

61 

5 

61 

9 

61 

1? 

61 

11 

61 

12 

61 

13 

61 

1* 

61 

15 

61 

16 

61 

17 

61 

1« 

61 

19 

61 

i" 
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2.6.93    ROUTINE  PREDICT 


rbutine:    predict 


C   •   PREDICT 

SJBR8UTINE  PREDICT 

CS^MBN  /dL<19/  CC2I129).  0f*!L169l»  BeF(J7)» 

•  ""I  (31 1       i      RA.8CI253)   ,   RA«SP(?58)   >   RTC 

•  TSTRT1516I 

C81M8N  /BLK2"./  »HIST(1J8)(  CnDIS,  DCF, 

•  01*  ,   FMT8D        <   FSTFL        #   HLIDF 

•  HLIDT196)    »   NHDAY        ,   PRCBd        #   PTM7»5I 

•  ShTFl,  SRDIS,  ThRSH,  YHJSTI13S) 
C91MBN  /RTTb/  TBUFF(138»)»TBSUt 
INTEGER  TBUFF/TBSIZE 

INTEGER  HLIUF 

IMEGER  H8LL>F,jB(7l*TIME»0Uf",0»T» 
JI""ENSIBM  TIMM(J) 
INTEGER  Til" 

C81M8N/BLK3/PVI262)»PS(262) 
CBlf3N/BLK»/OAT»(l»»,8),ML 
CfliMBN  /BIKb/  1PRD,  I«T,  ITRDLY,  JlI"(»> 
C9iMB.Ni/9LK89/  ITSA^E,HBLDF,CP(275I,CS(275) 
IMTEGES  Pv.PS 

DI1E.NSI8'  R"I(2),STAT|9>2«50>,L8AD(35| 
EflUIVALtNCE  (STAT, DATA) 
ESUIVAlENCE  (KK, JB(2) )» (LL» J9(b) ) 
DATA  NSTAT/50/ 
DATA  N..STAT/9C0/ 
DATA  NOATA/B/ 
DATA  N-DATA/llb2/ 
DATA  LbAD/35.0/ 
C 

IP«D  •  0 
NN  ■  u 

call  buffer  iniis, i»cp<5so/ i i,nni 

DECBDElb, luC3»TBUFF)  |HRfMJN 
1005  FBWMAf  (12. IX, 12) 

KIN  •  UJ  •  IHR  .  1JN 
TIiE  •  fMtN/Sl  •  8* 
IFITIrtL.LT.l )  TI1£  •  TIME  ♦  3>,i 
IF(TIMt.\E'!TSAvE)  GB  TB  35 

C  UPDATE  PREDICTIBn  STATISTICS 

C 

NN  ■  0 

IT  •  ITSAVE  ♦  1 

UNIT  ■  12 

IP  iNSTAT 

08  30  I«1,\L 

IP  •  IP  ♦  1 

IF( IP.lE.NSTAT)  G8  TB  22 

IF(l.EL'l)  "»»  T9  16 

CALL  Bt-FFER  BUT(  IU\ I T, 1 , STAT, N-STAT,  II, SM 

IJMIT  .  IUMT  ♦  1 
16   CBNTINuE 

CALL  BUFFER  INI  IU-I1T,), STAT, v*STAT,M,rj\| 

19  IF( I I.nE-2)  G8  TB  19 

IP  •  1 
C 

C  BYPASS  IF  LINK  HAS  FAILED 

C  • 

22  CALL  GETBY(OFAIL.I,IDFAlL) 

IF( IDFAlL.tJ.l I  G8  TB  30 

IF(  IT.bT.Ub)  liB  TB  30 

CALL  L0M8E5<IaKK»LL»DUM) 

IF(KK.EU-O)  KK«1 

IF(LL.ta.O)  LL  ■  1 

RRI  1  )  •  JB(2>  -  PV( I  ) 

RR12I  •  JBlb)  -  PS  I  I ) 

DB  Bt    j  •  1»2 

STATU, J, IP)  •  STATI1,J,IP)»1.0 

STAT(2,J,IPI  .  STAT(2,J,IPI  ,RR(J) 

STATu, J, IP)  .  STATI3,  J,  IP)+RR(J)««2 
21       CBNTIiMuE 

RRU  I  •  RR(1 )  /  JB(2) 

RRI  2)  .  RR(2)  /  JBlb) 

DS  26  J  ■  1»? 

STATU, J, IP)  •  STATU, J, IP)  ♦  KR(J) 

STAT(5,J,IP)  •  STAT(5,J,IP)  ♦  »P(J)«»? 

RRIJ)  •  AHS(RPIJ)) 

STAT|0,J,IP)  .  STAT(6,J»IPI  »  »P(J) 

IFIPRI j).GT..0b)  STAT(7,J,IP|  •  STAT(7,J#IP)  ♦  1.0 

IF(RR(j)«GT*»10)  STAT(8,J,IP|  •  STAT|«,J,IP)  *  1.0 

IFIRRl J1.GT..23I  STAT(9,J,IP|  •  STAT(9«J,IP)  •  1.0 
26   CBNTInuE 
30   CBNTInuE 

call  Buffer  buti  iunit,i,stat,nkstat, ii,nni 

G8  T8  tb 


3b   CBNTInuE 

IT  •  TI1£  *  1 
C 

C  CHECK  FBR  npLIDAY  BR  TIMf  BUT  BF  B9UNDS 

C 

»b   CBMTINuE 

M  «6  1  i  1#NL 
PV( I )  •  0 
PS( I)  .  0 
*6   CBNTINUE 

HSLDF.hLIDF 
IF(H9LLF.E'J.O)  GB  TB  56 


15 

1 

15 

? 

15 

3 

15 

0 

15 

5 

15 

6 

15 

7 

15 

» 

15 

9 

15 

ID 

15 

11 

15 

12 

15 

13 

15 

1» 

15 

15 

15 

16 

15 

17 

15 

18 

15 

19 

15 

2? 

15 

21 

15 

22 

15 

23 

15 

2k 

15 

25 

15 

26 

15 

?7 

lb 

28 

15 

29 

15 

sr. 

15 

31 

15 

3? 

lb 

17 

15 

3» 

lb 

3« 

15 

36 

15 

J  7 

15 

*? 

15 

3" 

15 

**D 

15 

"1 

15 

»? 

li. 

»3 

15 

tfc 

15 

*5 

15 

"t 

15 

1.7 

IS 

«a 

15 

«Q 

15 

5r 

15 

ol 

15 

b? 

15 

53 

15 

b* 

15 

b5 

15 

56 

15 

57 

15 

5« 

15 

59 

15 

»'5 

15 

M 

15 

*2 

lb 

63 

15 

6* 

15 

65 

15 

66 

15 

67 

15 

68 

15 

69 

15 

73 

15 

71 

15 

72 

15 

73 

15 

7(. 

15 

75 

15 

76 

15 

n 

lb 

78 

15 

79 

15 

81 

15 

"1 

15 

8? 

15 

"3 

15 

8» 

15 

"5 

15 

86 

IS 

S7 

15 

88 

15 

89 

15 

90 

15 

91 

15 

92 

15 

93 

15 

91. 

15 

95 

15 

96 

15 

97 

15 

98 

15 

99 

177 


c 

C        STBRE  BASELINE  PWEDICT1BN 
C 

»8  09  52  I.l.ML 

CALL  L0'18E5<  l.KK»LL»DU«> 
PV(I)  •  JB<2) 
PS  I  I  I  •  JB(b> 
52  C9NTlNuE 
G8  TB  r,b 
56   IF( ITtGT.l**)  GB  TB  t8 

C  PRtDICT  F6R  NEXT  15-MHUTES 

C 

1PWD  •  1 

UN  •  C 

IP  •  SiDATA 

LB  •  1 

08  80  I»lfNL 

IP  .  IP  *  1 

IP! IP.lE.NQATA)  SB  TB  58 

CALL  BUFFER  IN(<1»1»0aTA,N»0aTA,II,Nm 

UN  ■  My  +  13 

IP  »  1 
C 
C  GET  FBuRlE*  PREOICTISN 

58   C5-.TP.uE 
l.  •  J 

jj  ■  J/.TAMT.IP) 
C»LL  HALF( JJ«2»l I 
1FIL-E..OI  GB  T9  6.. 
bP  ■  L 

CALL  -i~LF(jJ»l<L) 
IF(L«E»0)  S9  T>?  6. 
VP  •  L 

C  STCRE  BASELINE  IF  NB  FBUoJER  PREC1CATI9N 

C 

IFII.-iE.LBAJILD)  )  GB  TB  59 

i_B  ■  Lo*l 
so   C9NTIN,.E 

CALL  L^ruESI 1»KK,LL»DU1> 

vP  •  Jd(2) 

3°  •  Jb(b) 

G3  TB  b8 
iH      C9UTI\UE 
C 

C  farPASS  C8RKECTI9N  IF  LIN<  "AS  FAILED 

C 

CALL  GEToYCDFAlLi t< I0FAILI 

IF( IOF^lL.tU.1 )  G9  TB  68 

IF(  IT.ECJ.l)  GB  TB  61 

IF(  ITSAJE.--lE.IT.il  GB  TB  61 

CALL  LL.1BE6I  I.KK,LL<DU") 

JJ  .  0aTA(IT-1* IP) 

CALL  HALF(JJ.2,L) 

SSS  .  u 

CALL  «ALF(JJ,1.L) 

RRR  •  l 

R  ■  J8<2)  -  *RR 

T  ■  R  -  CP( I ) 

CP(I)  •  .9. CPU)  ♦  .l.R 

S  •  J3cb)  -  SSS 

J  •  S  •  CS( I ) 

;SU)  ■  .9«CS(I)  ♦  »|»S 
61  VP'VP+C'PI!) 

SP"SP»CS(  I  ) 

IF( 1 T . L  Q. l )  GB  TB  68 

JF(  ns««/E.Nt.IT.l  )  GB  TB  6b 

»p»vP«.2«T 

SP«SP».5«U 
68   Pv(I)  •  vP 

PS1 I )  •  SP 
SO  CBNTHiuE 
85   CS''TI>;oE 

C9  90  I«1»nL 

IF(PV(  I  l.NEO)  Gd  TB  90 

CALL  LC19E5! I»K«/LL»DU") 

PV! I)  •  JB(2) 

PSI I  I  .  JB(5) 
90    CBMTlNuF 

ITSAVE  ■  IT 

NN  •  ^ 

CALL  BUFFER  9uT( 18/1.CP»55:« II'NU) 

95   CBNTINuE 
RETURj 
ENJ 


15 

100 

15 

101 

15 

102 

15 

103 

15 

10* 

15 

105 

15 

106 

15 

107 

15 

118 

15 

109 

15 

110 

15 

111 

15 

112 

15 

113 

15 

lit 

15 

115 

15 

116 

15 

117 

15 

118 

15 

119 

15 

120 

15 

121 

IS 

T5? 

15 

123 

15 

12k 

15 

125 

15 

126 

15 

127 

15 

128 

15' 

129 

15 

130 

15 

131 

15 

11? 

15 

H3 

15 

131 

13 

135 

15 

136 

15 

137 

IS 

138 

15 

139 

15 

1»0 

15 

1M 

15 

1»? 

15 

1*3 

15 

1»» 

15 

1»5 

15 

1*6 

15 

1«7 

15 

lk« 

15 

1»9 

15 

150 

15 

151 

15 

15? 

15 

153 

15 

15k 

15 

155 

lb 

156 

15 

157 

15 

158 

15 

15? 

15 

160 

lb 

1*1 

15. 

162 

15 

163 

15 

16k 

15 

165 

15 

166 

15 

167 

15 

16A 

15 

16° 

15 

170 

15 

171 

15 

17? 

15 

173 

15 

17k 

15 

1/5 

15 

176 

lb 

177 

15 

178 

15 

179 

15 

1"0 

15 

HI 

15 

152 

lb 

183 

15 

18k 

15 

185 

15 

186 

178 


2.6.94    SUBROUTIN E  LDMOE5 


•         LD~lBt* 

SjBR8uTI\E    LOM»FS(LM<«  1VBL,  1V>  I«CC) 

CULMS'.    /*TTS/    TBUFI- (13S»1»THSUE 

I^TEGE«    T6UFF,     BSIZt 

CB">MBm    /dL<5/    iPPO,     I*T»     I!'""     *»    JLI^Itl 

iJJIVAlENCE     ( JLI*( 1 ). ISLL),  I " I  2 I, I SUL I , (JLI M ( 3 ) , I VLL I 

1     ( JLln<»)»IVUL) 

If(l_'»K.NE.2,>S)    Q8    T«     , 
b    CBMIk,E 

IV3L"2o 

ISP-35 

I9CC.» 

SETIWm 
10    CfWrsiuE    ™ 

ISI.3 

mB*.(ToSIZE-*>/5 

DiJ    20    I«1»^SK 

CALL    HALf  (TBUFF,  IST,LP'«) 

IFILI^KtEU.LNK)     liB    TB     '0 

1ST .IST+10 
20    CB^TIM^E 

t,?    TB    h 
30    CBMImlE 

CALL    HALF(TBvjFF,lST«l»  IFAL) 

1F( IFAl-NE.O)    jB    Td    5 

CALL    HALF(T»'JFf  ,  ISTti,  IvBL) 

CALL    haLF( TBUFF, 1ST»3, ISP) 

CALL    MALFITBJFF, 1ST**, 1BCC) 


IF( 

IVBL 

iLTi 

'  IVLL 

)  IVBL  ■ 

'  IVLI 

IF( 1VB^. 

ST.IVUL)  I' 

/Bl.IVOL 

IF( 

ISP 

>LT. 

ISLL 

1   ISP  • 

ISLL 

Ifl 

ISP 

.6T. 

ISUL 

1   ISP  ■ 

ISUL 

RETU»\ 

EMJ 
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<. 
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60 

a 

60 

<? 

60 

10 

60 

11 

60 

1? 

6j 

13 

60 

1» 

60 

15 

60 
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17 

60 

15 

60 

It 

6a 

23 

60 

21 

60 

22 

60 

23 

60 

2» 
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60 

26 

60 

27 

60 

28 

60 

29 

60 

30 

60 

31 

60 

32 

60 

33 

60 
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2.6.95    ROUTINE  RTSND 


C    AVE 

C    STB 


'    S^ET/B^K    DFTEPMIN-ATI9M    RM'JTINE 
SJSRSuTr-.E    WTS'-D(LEVSS.NSUB) 

C9-"  "):./«T\D-P/I3fP|12] 
C8-MB:.    /bL</    IS>5(8.S>/\CCi.E,CTC»  IS9|8) 
£e-'M9\/8|.K3/P  vv  (  26<>  I .  PS(  2tc  ) 
CS^MSN    /8l«.1FC/    ISTF,I2U1MT<5»> 
C9">rB'.    /OL'vS/    IBRD,     I«r,     lT^Lr,    jL  ]  »• ,  «  , 

C8->K9n    /32C0ST/    «'*.«.8FS(12»].  !  3  ( ia*  )  #  !E»(31  >«EnTCTC(31  I .  SPL ! ' ( 12»  I  . 
1    C3RP-,(31) 
CS^MBN    /BLK70a/LEV58(»),CVCL')Ii)#IVTFe(5l»','SU9B,  |l»E9PT 
CS-,^8\/SECTlM/    ISECTlRI 

Ce-"-B'.    /neLUS8/    SjRC\(12l.)»..L0SPL(<.|.-L3!FF  («l,  IGATE"-.  I  jRTr- 
lN'EoE-    SUSL"\,k.L3:,OL»'<LD9FF 
A3JIT13"^AL    C.ABJS    F9R    IMEBF  »C!'-(J 
3I1ESSI9\    «V(?t?| 
3I1ENSI9.     I"<TF(5! 

Integer   Pv.fS 

IV'E&E"    PVv 

I^TEJEK    SP|_IT 

DI^EMSIC'i    ]SCT(12*> 

SINENSIS'.    IUHUP(  j.l,),  IT<T,(o),JB(7) 

onE^sis'-  >t.vctn8i«cvc(8»si 

;I-'I^SI3';    C»"AM»).    uEv5S(*J,     .""Still,    C»CLI8I 

JPt^sir,  i.iv<i«,i 
3iiENsie-i  nTKs(i,5, 

E3JIVALE  ,CE     (L''Kl»LlNK(i))»(LN<2»LIN«(2)).(L,.<J».I   .<f)ll 
ES-HVAlENCE     (L'-«»»uI,>»(»)  )<  (LS<5«LINilf5)  )i  (L  .<o,Ll  .<IH  1 
EJJIvilejCE    (  «pw»sa»vphse  ( 1 1  )#  (vP».*St-»vP»stl2) )»  (VP~asC#  vw-eE  (3) ) 
SATA    Tel    /20./ 
OaTa   »;r-AX/»S/ 

3ATA    NSEC    /»/ 

2ATA     NU9»S     /»,/ 

DATA     <u/.OJ/ 
^»'j£    S»,_1T    C~AV.F    TmUESmBlC 

3aTa    SCTBL/O.PTv 
*E    CuSKtM    b'Ll'i 

39    IS&'j    I     •    1/     12» 

1SCTI I l     •    S"LIT(I ) 

C9NTIVE 

A'JOJTItNAL    OAH'-S    FBK    INTERFAd'O 
SET     I  .TEWF*C.E    '•LAGS 
3B    7b    1.1.6 
I\TF( I |«0 

estiva 

09    10O    I     •    1»    8 

istcTi ii.: 

C9\TI'.i.E 

CB^S.2.  I/S'.j",  . 
39    »    1.1*5 
DB    »    Ma  1.8 

CVCIM.,    1.0 

DO    3    .-.1.8 

ncclei  "U«c 

39    3    N.1.8 

JSB|\,r   1.0 

IG^PC.Il.O 

C8NTI\ut 

»?BP    CB^E    A^O    BUFFER    GR9JPS 

S01LO    SCRATCH    UR8UPISGS 

L.O 

KaO 

M.1+1 

IF(h.3E.(MSEC*l) IG3    TB    506 

<.l 

1_.L*1 

IF(LEviS(M-EOill    GB    TB    501 

IFILEViSIM.EC'2)    GB    TB    502 

IF(LEvbS(Hi.EQ.3l    GB    TB    503 

IF(LEv5S(M)-EQ.»)    ot>    T9    50» 

09    TB    506 

C9MTI\oE 

IF(M.LT.f«SEt.A\B.LEV5S(1«l)«EG.2)    GB    T*    5n5 

ISECTl Jl.l 


IG^UPU.U.J 

IF(LEVbS(2).EQ.31 

G9    TB    500 

ia>*UP(».L).l 

I(i1UP(K*l#L)i2 

IG«UPI«*2/LI.3 

IStCTl 1 1-1 

ISECT(?).l 

ISECTl j).l 

I<1TF(*1«1 

INTFOIal 

IF(LEv5S(3)'EQ'3) 

U8    TB    suO 

IG»UP(k»L)«J 

IS>*UP(K+1.L).2 

ISECTll ).l 

1SECT(2).1 

INTFUI.l 


56    TB    507 


5 
6 
7 
S 

9 

11 

1? 
13 
1* 
!5 
16 
17 
1! 


?3 


35 

36 
37 
31 

39 

•  0 

•  1 
»2 


7« 
79 


88 

H9 

90 
91 

9? 
93 
9» 
95 
96 
97 


180 


1    99 

1   1  00 

1  1  o  1 
1   10? 

1   103 

1   10A 

1   105 

1   106 

1   1-7 

1   10- 

1   1-9 

1   110 

1   HI 

1   11? 

1   113 

1   11* 

1   115 

1   116 

1   117 

1   11! 

1   119 

1   1?0 

1   121 

1   1?? 

1   1?3 

1   12* 

1   1»- 

1   126 

1   1?7 

1   l-« 

1   129 

1   13" 

1   131 

1   1« 

1   1  13 

1   13k 

1   135 

1   136 

1   137 

1   13  8 

1   130 

i    i»: 

1    1-1 

1  1»? 

i  :  «3 

G9  T8  500 

sjj  igkupia.d.1* 

IGK_P(<41#L>«5 
ISTF(1)«1 
ISECT(,)»1 
ISECT(fi).l 

G9  TB  5__ 

IStCT<6)«l 

bob  ceSTISot 

39  b-3  1.1»3 

IF(LEvbS(M)'E-.n)  C.8  T8  508 
_«LEV5_(1> 

\\«M-M 

D8  507  \'»N\j« 

IF(LEV5S(N)-Eat3)  ae  tb  507 

-■LEV5SIS) 

ir(J'E»'l'*N0t<.£Q.2)  INTFOl.t 

IF<J.__.1.a'iD,k,EQ.3)  IMTF(B|.l 

IFIJ.Ei-.J.ANa.K.EQt*)  INTF(5).1 
b_7  CBMlNuE 
bOli  C9STI\-uE 
c  ...  _;En_  "aXIM."1  CTCLE  LESliTH  fBw  EACH  ChRF  GP8UP 

_e  1  '..1.8 

Cr'AXI  .1.0 

1  |t<y.i  .iM.. 

ICB.ST.  i 

OB  lv?   '  •  1.  s_»pS 

3!  1.'?   .  •  1,  mGKCS 

I- '  I>_u(  »i«|  .El.  ;)  5B  T8  .  v_ 

_ET  S_'  3E5  BF  ISTE«S_CTI«NS  IS  C9HE 

IC.L-ST  .  IC'jU  ♦  1 

1 3-  •  I  i*c|  •.,-) 

C--L  !-'.(  IjP.  r:TUS,  |t,  ) 

IT<-  1  I  IC9.ST)  .  |1«* 
'.  -tH*'  r-TE^SECTI-r-s  I'  C^E  CiKlwP 

39  100   INT  •  1,  S«A* 
V  -£T  3aCk0991-vC  IMTEWSECTHS  su^SE"  9F  TmIS  1st  IS  3S9.P 

ISS-  •  lNT"b(  I  <T) 

!F(  IS-  .E--  j)   -B  TB  ICC 

CALL  L=~ASv(  ISs,  lI<*.  <3P»,  !3»a,  !  0=>C,  I  j«fcC»  I  j»~  I  s,  liB-IS. 
1  --•*IM 

CAUL    5    SCVL(     ISS.     IS. -A,     ISo-3.     IS.-C.     IS.'-T,     ICVCEl 
jE'    Sj-.=!B_-..I\j   P=iB!CT93    _Is«    \j~t)E"    F_«    ___-, 
-  ISTfc^SECTI 3"    P-ASE 

Sj"t    .    F.9«T( is^iti/p.o  ]       .„_ 

09    51;        IL,    ■    1,    6  1       :-■- 

1="!     lI.<|Iw''1     .pla.     _l       Ci9    TB    tIC  1        ;-. 

IL    ■    -1S<(ILS)  1       >7 

C«-L    L.^BEil     IL,     I.Bl.    ISP-.E-,     IBCC)  ;       ;.« 

»U|J     •     Iv__  j       j.o 

i'i    1=-:  .lj.   i)     ■-»<!->    •  p.viili  :     i_- 

blO    CS-.TI-._E  .       .,. 

.5J-  •   j.c  I     ;-'■> 

T.SSS.    ..0  .       ;-, 

!ri   l..i   .--._•     1     ,p-aja  .  p,(   l  -<  1 1  ■     •-,. 

Irl    L'»2    ..t.  .»    -.    P»(L  •«.?)     .JT.     „B~ASA]       v^-aSa    •    ~    1     .•'!)  ;       ;•■'■ 

Ic<i.S*_     "Sf.     :l      .P.-A^r     •     5(|     _.<J>  [         ;:.,. 

1FI     L\«»     a-._a     .      .A.O.     Pv(     ;v..l     .jT.     vr-»s-|        >P-».,-    ,    r.i         ,_ ,  |  •        •-,-> 

I^l       _..'j      ..t.  I  ,P-AbC      •      Pv(       w-<?)  1  --k 

v»    .    <p-»Sa  [,a 

;r(     «3r-    .F-.     21        ,«     •    A-AA1|«A,      ;o.^;i  j 

v  j    •     ,,  -<S-,  .       .,.'. 

IK     «.j--     .t  ..     .,]         ,•_■     .     ArAAKv-ij      v  =  -«?tl  J         [li 

•=-■-  •--♦.••  ■•!'•) 

i- 1   «lL-  .Lt.    ..-.),»  Tj  1.  ■■"<■■. 

Tt-lS3     a      ,t.      !      ♦     1   y,  ;         i,.^ 

]fl     <3t..     ,t  ..     ;,     T^'-jc    .     T_9_q    a    5.;  !        !  ,.  7 

>  ■  »sv.  •  •  ess  :    "kl 

I1'!     V    .■:!.     ;,«i|       Y    ,     •■*(.  !        !'.= 

L»:.|_E     a     Il.b.Tu»SS«b.)/(      l.-v|  .'        •'/- 

CyCLE     a     ..-=     a     CTCtL  .         • 7. 

ICSAvt  «C»CLt  •  .i 

Irl    L»_Lt    .Lf.    ;t<    i.cci      Mi      c»'.Lr.!'<-;M  tc-.sr  1    .    .  •      |7-. 

'.:    [•<    c»:l-.   .>t.    <?o.i     cvcls.   •   ;?:■  ;      :•. 

I"-(L»CLt     .LE.     :«'«M  IL*-  AT)]        _'•     T3     ]■  .        ;  .i 

C'A.|  IC".M|     a     OyClF  '        •  II 

U'P(  :   I  •ICSAv.  .  ;,, 

I  3  - 1-  <  ?  i.CvCL!  •       •  it 

:'■•'  1  mis/  I     ;.. 

;."f(,|iv1.,l',i  !         ;.- 

lO-'Pl-ia/P-ASi  "  :   .. 

:  jipiM.vP-.A-__  :     -.: 

i T-pc . .<,-,_..  ;    .  ,j 

iD^PI  .).S_"T  *       :■• 

IJV'P(  3).TL3SS  1       :<5 

lJiPIl     )  •  I  T  <—  I   .(  IC'JL-.')  1       :'•■ 

I'jipii  I  lis-'  :     1  -7 

ioipiw  i.y-l   ;..  :      i" 

10J    C9STI  ...E  .       1" 

Ud  C.--T1  .i.e  :     ■•  •: 

1  Jl    CBS'TI%_E  I       '•  '! 

\sji-.i  1     :  ,; 

< .  0  -.      ■  '  * 

i-._  1     :  '- 

OB    20  '    l.1.v,ops  1       '.-<- 

b,£    <.<*1  1        1  '7 

i-.I-l:  1  1  ■'■ 

-.-,_!  1  H  = 

IF(«.  jT,SS_H5)      :'.     T.     ?..;  1  20C 

IF(  ia*_P(r,L)  ._  :.-  ]     jB    TB    201  1  2J1 

IF(  Ib._P(h_l<L)  •■-  ".•-•)    :W    Tf    i.c  1  2:;? 

;•*•       TEST    CITE-^IA    h*-i    CBMhlsa    CB-c/BjFFcs     jnBL't'S  1  ^"3 

IFlAt3SlCTr-AX(K).C    A<(<«1  )  I.-.T.T9L)  G»    TB    16.                                                              1  2"A 
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2JJ 

2vJ 


ISBI  I'jSSUnlilAPl-iLl 

IF|CY-I»<1«).3T.CY1AX(K*1))     (-Y"»X{<»1  I.  I".  «•»«(<) 

fCLI   .out)!  .LY-.x  [<»1  I 

;,9   TS   ->yi 

CYLL('.SJB).CYm;.X(k  I 

<EEp    «tCl«J    If    NiJIuER    9F    tt-v^FEHS    A\3    C'RLS    I-    S'JKNfT 

IS*-(  1",  '.SU=>)«I'>RUP("!»Ll 

.SJB«'.bJo-.t 

!•:.„ 

IFI  IG-<^0(H  +  1.L>  .NE.i   I     .19    T9    ,.J2 

C8NTIM,E 
CSNTINlE 
>iSUb»N3Urt-l 

ADJITIfc'-AL    CARl-S    F9R     INTEPhArPIG 


1 N.    TRAFFIC    RfSPSNSIVE,     TURN 
HAVE    COMBINED 

C9RE    3^9gPS    1    ANJ  2    COMBINE 

IF(  ISti(2,l  I'EC?)  I^TF  (4  )  «3 

C9*E    Grv9UPS    2    ANO  J    C9~HINt 

IFI  ISBl3,l  1-E0-3)  INTF<3>»;" 

IFI  IS8[2,2).EQ.3)  1MFI31-2 

C9*E    GkBUPS    <t    AND  5    CS"B]NE 

IF(  ISB|2»2>.EQ.5>  INTFIll.O 

1F(  ISB(2<3> .EQ.S)  INTFI11.3 

IFI  IS9(2.*)«Ef).S)  IMFIlliJ 
IF(  INTM1)  .NE.C)     I.TF(2).0 
CS^TI'ifE 


BFF    INTERFACE    FLAGS    IF    C9RE    3RBt.:PS 


FOR    LSTSQS    PACKAGE 


Nf>*    CBNPILE    CYCLE    LENGTH    «ANGE    *ND 
D9    301     I-l.NSUH 
.    FIRST    SET    UP    SIGNAL    CYCLE    SELECTION    TABLES 
jC'CLiCYCLI  I  ) 
iC'CL'jCYCL 

IF(MCYLL.GT.IOO)    ICTCL'^CYCL.100 
KCYCL«MCYCL/10»ia 
«.CyCl.i'CYCl-<CyCl 

ICYCLE.'O 

IFIKCYLL.GT.2)     KYCLE.S 

;F(KCYCL.GT.7)     IC'VCLE'IC 

CYC(I.i)    .jtYCL.lCYCLE-KCYCL 

nCyclEi I)»l 
i    CSvri:.jr 

IFINSjr.B.NE.NSJ?!    IRE9FT    •    1 

\SJB3    .      .Sj" 

39    tfr i       1    •    1 ,    NSUB 

CYCLE    .    CYC(     '•     II 

C5NS1     .    Cfl  .S    .    CVC.E 

1.9    «6  I    •    1,    NGRPS 

I j»    •     IS6(    N,    -I 

Ir(     IGP    .E  .•    0)       GO    T9    k63 

CALL    IRTN<     I3P»     INTRS,     ITK~] 

I  INITIALIZE    SPLIT    CHANGE    CS-lPuTATIBN 

SCTBT    •    0.? 

SCCNT    .    00 

39    »5c       INT    •    1,    N.-Ax 

ISN    •     INTRSI     I'T) 

IF(     ISN    .E->    0)       30    TO    *50 

CALL    LPHASvM     ISN,    LINK,    K3PH,     [GAB,     1GBC,     I3ASC 
1     I^CMIM 

3A->IN    .     IGa^IN 

GA-MN    .     3A-IIN/2. 

GJ-'IN    .     IGc-IN 

GUI  IN    .        UM:-iI\/2. 

3C">IN    .     IGC"IN 

iCh     ■     3CUN/2. 

CALL    S.-SCVLI     Ion,     ISj^A,     ISu"B«     ISjIC,     ISu^T,     ICYC 

Su^T    •     ISlMT 

SJ^T    •    SU^T/2. 

GABC    •    CYCLE    •    So"T 

CBmi-uTE    GREEN    0E1ANL) 

59    til     ILN    •    1,    6 

IF(     LIN<(IlN)     .E».    C)       GS    TB    1,10 

IL     ■     LINK(      I|_N) 

CALL    L^IBEbl     IL,     Iv8L,     ISPEE3,     IBCC) 

Pvl  ILM    •     IV9L 

IFI     IP-,'3    .EU.     1)       Pv(lLN)     •    ovvl     ILI 

Pvl     ILM     ■    'VI     ILNl     ♦     |,T    •    I9CC 
-•    CONTINUE 

IFI  L'-Nl 


IGAmJn,  IGB-IN, 


VEi  J1  JP-1A5A   •  P,|   L'-Kl) 

1H  LNKg  .NE.  J  1**0.  PV(LNKS)   .GT.  1 
IFI  LN«3  -NE,  0)  VPHASM  ■  PV(  LNK3) 
IFI  l%Ik»  -iti  J  .AND.  PVIL>*»)  'ST. 
IF(  LN^B  ,.\t.  „l  VPMASC  •  PY(  LNK5) 
G3A  .  VPHASA  •  CBNbl 


.phASBI   vPhaSc  •  PV(  L"> 


GJC 
IFI 
IFI 


•  ,PHA3B  •  CON31 
.  v»HAbt  •  CSN31 
Gj»+,Di.'*GDC  >LE- 


0-0)   GS  TB  »50 
»16,  M 


K3PH  .NE.  -j)       GB  T9  (»1B, 

CB-iPUTE  A  PHASE  SPLIT 
GA  ■  (o3A/(  GOAtGD'jl)  •  GABC 
IF!  o«  >LT.  GA"IN]   GA  •  GA^js 
IFI  GA.jC-GA  .lT.  lfa«IN)   GA  ,  oABC  •  Sri- 
3PLITA  .  Ga  /  oAdC 
ISPLT  .  SPLlTA  .  1G0C.  ♦  5 
ISPLT2  •  0 
G9  TB  ,1S 
C9NTI  ioE 

C8  IPJTE  A  AN3  C  PHASf  SPLITS 
GA  •  (  3'JA/I  G'JA*G^b  +  GJC]  )  •  GABC 
GC  .  I  G„C/I  GOA-fGCB  +  GJC)  )  •  GABC 
IFI  oA  .LT.  GA1I  .)   GA  •  GAi-IN 
IFI  GC  >LT.  GCMN)   GC  •  GLnjN 
IFI  GAeC-(GAtGC)  .GE.  G81IN)   GO  TB  »21 


2-» 
2-19 
2'.3 
211 
212 
213 
21» 
215 
2U 
217 
21B 
219 
22'. 
221 
222 
223 
22* 
226 
22ft 
227 
22» 
229 
230 
231 
232 
233 
230 
235 
236 
237 
23B 
239 
2»0 
2-1 
2*2 
2»3 
2»» 
2»5 
ttb 
2»7 
2»8 
2»9 
2B0 
251 
252 
253 
251. 
255 
236 
237 
25! 
259 
260 
261 
26? 
263 
261, 
265 
266 
267 
2611 
269 
270 
271 
27? 
2/3 
27k 
275 

276 

277 
279 
2/9 
2"? 
2*1 
2"' 
2«3 
2«i. 
215 


29? 
293 
29* 
2'5 
296 
297 

29R 

2»9 
330 
301 
332 
333 
33k 
3-5 
J-6 
337 
339 
339 
310 
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GABC  -  (  5CM>;  ♦  GBMIN) 


GABC  -  GAMIN 


GABC 


QBCMIN 


GA  •  '(  GDA/I  GUA+GDC) )•( GABC. GBMIN I 

IF(  GA  «LT.  GAMIN)   GA  ■  GAMIN 

IF(  GABC  -  (GA  ♦  GBMIN)  .tT.  GC"IN]   GA 

GC  ■  GABC  -  (  GA+GBMIN) 

CBNTINuE 

SPLITA  .  GA  /  GABC 

ISPLT  .  SPLITA  •  1303.  +  5 

SPLITS  •  GC  /  uABC 

ISHLT2  •  SPLIT2  •  1000-  *  5 

G9  TB  »13 

CBNTINuE 

C6MPUTE  B  PHASE  SPLIT 
oOAC  •  AMAXK  GOA,  GDC) 
G6  •  (  G3B/(  G0AC*GD8))  •  GABC 
IF(  GB  -LT.  GB"IN)   SB  ■  GbriN 
1F(  GAbC-Gd  .LT.  GAMIN) 
GAC  •  GABC  -  GB 
SPLITA  .  GAL  /  GABC 
1SPLT  •  SPlITA  .  luCO-  ♦  5 
ISPLT2  •  0 
G9  T8  »1* 
CBNTINuE 

CBMPUTE  A  PHASE  SPLIT 
GDBC  •  A1AXK  GDB,  GDC) 
GA  ■  I  3DA/(  GUA  +  GUBO)  •  UARC 
IF(  GA  .LT.  GAMIN)   GA  •  GAhIN 
GBCMIiJ  •  AMAXK  GBMIN,  GC«IN) 
IF(  GABC-GA  .LT.  GBCMIN)   GA  ■ 
SPLITA  ■  GA  /  GABC 
ISPI.T  •  SPlITA  •  1000.  ♦  5 
ISPLT2  •  0 

CBNTINUE 
JSN  •  2    •  (1SN«1)  ♦  1 

TEMP8ARILY  ST6RES  SPLITS,  CBMPUTE  CHANGF 
CALL  GtTBIl  HUOSPL,  ISN,  JSHf,  0) 
IF(  JShF  .NE.  0)   GB  TB  1001 
CALL  PnH«t     ISCT,  JSN,  ISPLT) 
CALL  P*H„(ISCT,  JSN+1,  ISPLT?) 
CALL  UPH«<  SPLIT,  jSN,  ISCAC) 
SCAC  •  FL8ATI  ISCAC)  •  XD 
SCAN  .  FL8AT(  ISPLT)  •  XD 
SCTBT  .  SCT»T  +  ABS(  SCAC  •  SCAN)/  ScAC 
SCCNT  •  SCC^T  ♦  1.0 

TRA  IF  N8  C  PHASE 
IF(  K3PH  .NE.  1)   GB  TB  1001 
CALL  UPH*I(  SPLIT,  JSN+1,  ISCCC) 
SCCC  •  FL6AT(  ISCCC)  .  XO 
SCCN  •  FLBAfl  ISPLT2)  •  XD 
SCIBT  >  SCTBT  ♦  ASS(  SCCC-SCCN)/  SCCC 
SCCNT  a  SCC^T  ♦  1.0 
CBNTINuE 
CBNTINuE 

C  C9.1PUTE  AVERAGE  SPLIT  CHANGE 

IF(  SCCNT  .LE.  n.OI   SCCNT  ■  1.0 
SC*VG  •  SCTBT  /  SCC*T 
C  CBMPARE  »ITH  T8LEPANCE  FBR  P8SSI  LE  RFBPT HI  I  AT I8N 

IF(  SCaVG  .BE.  SCT8L)   IREBPT  •  1    , 
♦60  CBNTINUE 

08  600  I«l,8 

IF(CYCuB( I).NE.CYCL(I 1 )  IREBPT  •  1 
CYCLBl  I  )  •  LYCL(I) 
600   CBNTINuE 

39  7j„  1-1,5 

]F(  INTf9( I).NE. INTFI I ) )  IREBPT  •  1 
INTFBl I  )  •  1NTF ( I  I 
700   CBNTINuE 
C  ST8R£  NE*  SPLITS  [F  RF.BPT  MI  ZAT 1 8N  FLAG  IS  SET 
IF  (IRF8PT.NE.1)   GB  TB  1033 
SB  10o?  I  •  1,  12* 
C...tH£C<  F8r  BPERATBR  DtMNEO  SPLIT  BtFBRE  CHANGING 
CALL  SET3I (HLDSPL,I,KSPHLO,0) 
JFIKSPhLO  .EQ.  3)SPL]T( I I.1SCTI I ) 
1032  CBNTINuE 
1003  CBNTINuE 
RE  TURN 
END 


1001 
*50 


ill 

31? 

313 

31* 

315 

316 

317 

31B 

319 

320 

3?1 

322 

323 

3?» 

325 

326 

327 

328 

329 

33? 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

311 

3*2 

313 

3** 

3*5 

346 

347 

3»8 

3*9 

350 

351 

352 

353 

35* 

355 

356 

357 

358 

359 

360 

361 

362 

363 

36* 

365 

366 

367 

368 

369 

37o~ 

371 

37? 

373 

37* 

375 

376 

377 

378 

379 

3*3 

381 

3X2 

383 

38* 

385 

386 
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2.6.96    SUBROUTINE  IRTN 


cs 

•    £ 


•-1R5U 
"ENS 

"MB". 

^SFF 
LAhC 
SSS( 
-T:s>, 
ICI 

1: 


T  I  ME     I'T'.(  13-i.  |MT,  ITK 
ISN    [NT(»51 

/JL^IS/ 
|62)  . 

I  Jl  1  i 

(12*1       / 


l  ) 


ClC'flil 
CMBFi  Jl  I 
uGuT(12it> 
(i(5GG(12*) 
T<  "(31  ) 


CTOjF ( 8 ) 

crCLCm  i 

GAwTPnl  I 
Gu*dC< !?•»> 
.vKKUK  ,  7;  ) 


EMM(i,961 
jP»TP( 51 ) 


P(2).NC> 
/1ISCL, 
I .1/1* 


GCftM  (31),GCMS!(2),  JBP'.S(?), 

,'.L.    .G-.PS 
ClCINH(Sl  iLi»a(3)»CVCI'EF  ni.  1 


C!  V-(D( 


3i,  -poClis). 

IC351 (?) 


:al.l 


IT 

IF 

3J    C5 


i  2: 

■  1ST. 
ILL  'i 
-Till 
1NT1-. 
ILL  J 
ILL  3 
?  JC' 
.1ST* 
ILL  i 
*LL  J 
l.l  I 
I  IT' 
'IT  I  , 
TU»\ 


>iE 

j-)v 

tTriY 

I 

„TdV 
.  IM3 

L.E 

fc.T\JY 
tTdY 
I«l. 

I 

iH» 
fcTJY 
T'*l 
.  JT. 
Lit 


(  ICGS1,  IC.W,  1ST) 
(NICIGP.  IG^.  I  VJ ) 
INN 


(NCIbfiP,  [GR.  ISM) 
(UCNTSI. IGK,  1ST) 
INN 

HjCSnt.m.  icisi 
(  1K1.IC9MIT.") 

IT<1)     IT<r.IT1 


2 

? 

2 

1 

2 

2 

2 

3 

5 

it 

2 

5 

2 

6 

2 

7 

2 

8 

2 

a 

2 

2 

»1 

2 

?? 

2 

?3 

2 

=  » 

2 

=  5 

2 

?6 

2 

?7 

2 

?« 

2 

?9 

2 

3C 

2 

31 

2 

3? 

2 

33 
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2.6.97    SUBROUTIN  E  LPHASV 


P9jTI  <E  :      lpi*S< 


LPHftSv 
SjSKSjTIN'E    L»ha.SV<  IVT,LN<j<3P#uABiGBc.  jABO3A",u0",GC1) 
C'J"^'?\    /t(L*7    /AB3K16)  <     !M"I(31l       »     IM2K31I       . 

.    <iTC(l7)i<3PMl(31  l.STOPF.NBLI  31) 
CSI.-'S?.    /•JLxl'./       CLtAG  .       DTLN3  ,       C*LNG 

.  DU-.Yi,  JU'Y2,  C\T,.\(372>,tKTFL{5J/ 

•  <CL1WI<    «LTF(17)«    KC'oF(|7), 

,,     4lvA»(31)  ,       SEfSKIS)     ,       ■       iCIM(i?3|       »       L«PT<<f,*l 

;h1'!S    /-1L<H/      CICTF(S)      '       ,       CT8JF10)  ,       bT8Vj(*l 

.    C3NTS+62)       -,       CJWBF1J1I;       .       CYCLC(31!  <       tMNT(.9fc) 

•  ENHFF|31>  ,       3Gi>7(12»i  ,       0AwTP(31>  »       SB.TPOli 

•  GLABC(12»>       i       3GJS(12«!)  ,       GUAdC(l2»)       .       IMTDu(«9fc) 
»    SSSSll2<ti          ,       TKH(31)               ,       wRiOF  ( 31  ) 

I  M'LCiE^    JA.J»'JBCjGAriC/GAPl,QSi-,GCM 

BI1ENSIBN    uN<(6)  . 

D9    id    [ilit 

L^< ( I  1.0 
10    C3NTINL.E 

CALL    Jt.Tr)T(H1P-.I,  ImT.KJP) 

I3X.4.I I  »T.l 1*1 

CALL    itT.jYiojQf,  IDA»o»ai 

CALL    Jt.TuY(UCGT#10x»l,oeC| 

CALL    3t  TBYIliG&T,  I3x»2»GA-JC> 

CALL    GETHY<U3G0,IDa»GA>i) 

CALL    JETBY(  j'iGo,  ID*»U3B^) 

CALL    oiHY(bl,Go,  ID**£,GC-1) 

IF(K3P.3E.2!    C*LL    GETBY ( SSSS, 1 CX»2« Ucu ) 

1ST. 6. (  INT. 1) 
GET    SURnflUNOISG    LIN".    NU^BE^S    AND    STCSr    Br    pwASF 

CALL    jf  TaY(N-.L/  ^T»  1  I  ) 

1ST  T. I  ST*  I  1 
30    CONTINUE 

J.FI  ISTT.LE.1STI    ii9    T8    *o 

IST.IST*1 

CALL    MALF(CMTLN.  IST.LL) 

IF(LL.lT.O)    Gf>    T8    30 

LL«LL»1 

CALL    it TdY(L<PTR,LL< I  1 

IF( I.jT.t)    39    T1    3u 

Irl  LN<  l  1*1  I-EC3I    LNK(I*1)»LL 

3ST8  30 
»C  CONTINUE 

CETU*  I 

EVJ 


3 

1 

3 

7 

3 

3 

3 

it 

3 

5 

3 

t 

3 

7 

3 

B 

3 

9 

3 

10 

3 

11 

3 

1? 

3 

13 

3 

1* 

3 

IS 

3 

If 

3 

17 

3 

IS 

3 

19 

3 

20 

3 

21 

3 

52 

3 

23 

3 

?* 

3 

25 

3 

?k 

3 

n 

3 

28 

3 

29 

3 

ir 

3 

31 

3 

32 

3 

33 

3 

3k 

3 

35 

3 

36 

3 

37 

3 

11 

3 

39 

3 

»0 

3 

»! 

3 

«2 

3 

"3 

3 

nil 
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2.6.98    SUBROUTIN E  SMSCYL 


C         •         SMSCYL  »  1 

SJ"PBuTr.E    Sis{.YL(INT»SU!1*>S:i"IB»SU>1C,BUiT.,CrCl.E]  »  ? 

IS'tdE"    CYCLE,Su!-A,SuMe/SU",C,SU''-T  *  3 

"  CSIMSN    /3JC.BNT/    k,7»8FS(12»)/  Dllitli  I C  *  (  3 1  l»EMCYC(3t  1/ SPLIT ( 12* I  ,       *  » 

1    CufcPj|31)                                                                                                             •  *  5 

C91MBN   /PATNi/    »8CSTRT(1Z*I»*BCEN0(1^«  ><bt»S(3i  I.DELTOl  1/  «.  6 

1    S"HA3i_(12«>.SABC<ia»l»SU"1AC3C(3l)  »  7 

CS^MB',    AlLM*/       CLLN3                    .       DTLMi                    .       C«L>^j  1  R 

o    D'JMYi,     LJU  IT?,    CNTL"-(372).L'vYFL<5>»  ■»  S 

b    <tL<!7),    «CTF(17),    <CSFI17),  *  10 

o    N»lv»*{31)           <        SEi-SmS)              ,        VRINT(1?3)        .        LKPT*(i»)  »  11 

C^MSn    /dL<18/      CICTF(o)            ,       CT»jF,g)            ,       ST&VDim  ,                        «  i? 

•  CBNTyib?)          ,       CUK8FU1)          ,       CYClCi31)          ,       EMVTIHtl  ,                          1  13 

•  fcABFFlJl!          »       (3uOT(12»)          ,       GAwTP|31)          •       39<.Tp(31!  »  1* 

•  'jLAQC(12»>       >       aGQ6(12*l          ■       &UA:iC(>?*>       <       I MDCI  ".9?:  1  .                          »  15 

•  SSSSllJI)  ,  TK'M3D  /  WRK8F131)  ■»  It 
C  SMSCYL  &£1S  7*"E  L»ST  T1MES  A^O  T«E  CYCLE  LENGTH  FBR  as  IST[PSeCt  »  17 
C                    LyCLfc    •    T"F    LyCLE    LENGTH    fgft    TM£    I  \nJlSECT  I  8\    |I\T)  *  18 

CALL    jFT-JYiENTCYC,  IM.1CYC)  *  1  ■> 

CYCLE    •    <CL !  ICTC)  ♦■  2C 

C                    Suma,    SulB.    AMD    SL1C    A^F    Twe    LSST    TI-ES    FSLLOfclNj    ThF    »,    p,     ASD         »  2] 

C                    SU*T    13    T<F    L6ST    T I  M£    PE-<    CYCLE  »  22 

IP9SN    i    »•( IMT-1 I  *  23 

CALL    GfTdYlbSSS,  IP8SJ  +  WSU1A)  »  21 

CALL    3tTiY(5SSS/IP9SM»2/Su1b)  *  25 

CALL    jtTdY(SSSS,  IPaS^IO/SU-IL)  «  26 

CALL    uETBYlS^TABC, 1»8SN**/SIMT)  *  ?7 

CS^TINbE  *  2S 

RETURN  »  29 

E\U  «  30 
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6.99    ROUTINE  LSTSQS 


5 

9 

5 

10 

5 

11 

5 

1? 

5 

13 

5 

U 

5 

15 

5 

16 

5 

17 

5 

IS 

5 

19 

5 

50 

5 

51 

5 

5? 

5 

53 

5 

2« 

5 

?5 

5 

?6 

5 

27 

S 

2? 

5 

59 

5 

33 

5 

M 

5 

35 

5 

33 

5 

3» 

S 

35 

5 

34 

5 

37 

5 

3» 

5 

39 

5 

*3 

5 

»1 

5 

*2 

5 

»3 

5 

141, 

5 

*5 

5 

»6 

S 

17 

")1UTl\ti       LSTSBS 

c       *       lsts:.s  5         i 

SjsKBuTI-'-F    LSTS3S(  IIJJ)  5  3 

CBN  B'J/LS  WP/IC^PlSOO)  5  It 

C    LSTSQS    PRBo^A*.  5  5 

IMESt*    3N0EX  5  6 

f^TEutS    9  5  7 

l\TE.uflK    PV.WS  5  5 

DIMENSION    19(6) 
DI  "-ENSIS-N    !S3(8,B) 
BPENSIB'.    LINK2(i75> 
DI^EMSIBM    INTSU5) 
3PENSI9N    *CYCLE(8).CVC(8,b) 
3I1ENSIBN    eETA(l75> 

SINENSIS'.    AEUS).C(»S).UU5),TBU5) 
OPENSIBM    DU<«5> 

3I1ENSI8  J    G( 175 1.0(1751.30 (175) 

SIRENS  IBM    LN3EX(  ITS).  I'vDEXI  1  7S  I  •  JNDEx  c  175  1 .  8M5EX  I  175  I 
DPENSIBN    A"IN(175) 
DI1ENS19-I    X(175).Y(175> 

3  PENS  I  8'.    FlJEAL(175).CYCL(l..).CoHV(!u).E(1058l.*0l.(n) 
DIMENSION    L1MKI175) 
PJIE'JSIBN    J0(6I,  IFaZE(175) 
CBIMBm    /3LK'    Iie.MCYCLE.CYC.  ;-»(S) 
CBv'MBN/ULKi/IMS 
CB"Via\i,dLKJ/0V(  c621.PS  (262) 
CB^MBN/aLKIf/l JTFLu 

CSIMB'j    /rfLKb/    I  PRO.     IWT,     1TKDLY..    JulM(»i 
EQUIVALENCE     (BETA, 3) 
3ATA    X[;/.0Oi/ 
LIVI  I  ).(  I«(  1-1)  )/2 
39    88j..>    IIIU1.R 

If"  USB  l  II  II  ).NE.ISa(l.  Ill  I)  )    IHE8PT.) 
|S9(  I  I  I  ILISBU,  HI  1) 
8803    CBNTISoE 

38  55JP    I  III    ■    1/IIJJ 
IW1»427 

IF1  1SB(  1.  II  I  I  I  .E(J.  j)    58    TB    5503 

CALL    LI«D(ISBIli  I  I  I  I  )#I,<TS,LnK»L>.DEX»I\DEX»JNDEX,8NQEX.I-H,<e> 
33    2901     I     •     l.»5 
JF<  IM3II  I  .tO.O)     SB    TB    2902 
VM    *    I 

2901    CS^TINot 
2'->02    CB'JTI.S^E 

39  2903    I    ■    1.175 
IFILINkII  1-EU.O)    G9    TB    290't 
L^<S.I 

2-X'   CS^tinuE 
?90»    C9MTI \uE 

[?\D<1»*?7 
C    IMSt;<T    STa>-T-UP    AMU    S9WTI\G 

(*>1 

1  1  =  0 

J0^Po-8 

39    29-3    ISb    1,L\<S 

i     «     I^LEX(IS) 

SFII.Lt'J)    liS    T*    29CO 

j    »    JNL-EXC IS) 

IFIJ.Lt  .0)     >i9    TO    29C0 

ix'ix*] 

,_NJEX(  IX)      a     LM3EXI  IS) 
IN3fcX(lX)      »     INUEX(IS) 
JVJEXI  IX)      a     JN.3EXI  IS) 
9NJEX(IX)     a     9NJEXUS) 
1.1     ■    l1"»<<  IS) 
L2    o    LI^2(I3) 
I  T  ( !.  1  . fc  Q .  0  )    Ufi    TB    29&0 
IF!L2il!3«0!     G8    TB    2930 
CALL    LL^ESILI.  Iv9L,  I  SPEED.  I9CC) 
CALL    LL'3THF(L2.LGTh.  IFZE.  L  1 1"  F,  "SP  I 
FL^GT»l3TH 

IF(     IPF-.D    .E;J<    0     )       G9    TB    2935 
IF(     PviLl I     -ST.    3)        IV8L    .    Pj(L1 ) 
IF!     PS(Ll)     -3T.    J)        ISPEEO    «    PS(Li) 
833a    CSNTIVE 

IV9L    »    IVBi.    ♦    1V.T    .    IBCC 

SDEE0. ISPEEO 

V9L.IV0L 

FLIh«Ll".F 

AlSPiXSP 

SPEE3"SDEE3»AMSP/100. 

A1N(  IX)»XO«VSL«FLIi-- 

FlJfAL(iX)     ■    FLNGT/SPEED 

lFAiE( IX!>IFZE 

IF(j3f.p    .QT'    78J1G8TB    i'930 
J3i-P«J0np+9 

IUMPIJDmp      ).L1 

JOKPUD^P+l  )»L2 

I3'<F(jC''.>'*2).INTS<  I  ) 

IDi1P(  J0ilP*3).INTS(  J) 

ID-1PI  JO^^tll.VBL'lOC. 

IO'1P(  JD  1P+5  1. SPEED- 103  • 

!3V'M  JDMP*6)«FL1M*100» 

ID-.PI  JC-iP*7)iA-1s(  IX)»100« 

1RMK  JDJlP*8)«FI0EAL!  IXIMoO. 
2933    CBNTIMuE 
<1AX=U 
<SAVE»KlAX 
IXX.IX 


b 

51 

5 

32 

b 

53 

5 

5» 

5 

55 

5 

b6 

5 

57 

5 

58 

5 

b= 

5 

60 

5 

61 

5 

6  2 

5 

63 

5 

h<* 

5 

65 

c 

66 

5 

67 

5 

6» 

5 

69 

5 

7C 

5 

'1 

5 

7? 

5 

73 

e 

74 

5 

75 

5 

76 

5 

?7 

5 

7S 

5 

79 

5 

90 

5 

81 

5 

Hi 

5 

83 

5 

?<i 

5 

95 

5 

86 

5 

87 

5 

»8 

5 

89 

5 

90 

5 

91 

5 

92 

5 

93 

5 

9* 

5 

95 

5 

96 

5 

97 

5 

98 

5 

99 
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IX«0 

09    2999    IS.    l.LNKS 

IIX.3 

1    «    INOEXUS] 

Id  I'Lt  >3)    1>B    TB    2993 

J    "    J'l!,EXI  IS) 

IFIJ-LEO)    u9    T9    2399 

IX'IX-M 

D8    2999    :SS°1.LNk.S 

I     ■     IUEX(ISS) 

J    •    JNDEXI [SSI 

IF(  (  I.tS.Ol'B'!-  (  J,ES.O)  )     HI    TO    2999 

IIX.Ha+1 

I.LNDEaIIX) 

I.INOEaI  IU) 

IflL-'.f.  '1  )    J5    T6    2999 

I«!ND£x<lX> 

j.JNDEa) I 1a> 

IF(I.NE'J)    Ij8    Tfl    2399 

J.JNDEX1 I  *  > 

S»9NDE*(I I  X ) 

IF< j.Nt «11    <»8    Te    2999 

IXX.Ux+1 

AI^CXX)     a     lAf|N(  !»!4.VA!  :  i"i  -   •?. 

rUEALIlxxi    j   F!D£A!.:?X!    ."!Cs-aUIIx> 
IO£x< IXXLLMDEX( I j > 

_NJEX(  1  <X)aJ\Or.X(iX) 

in-0.li  A2Ei  IX) 

IFZl.J.FAZFdlx) 

If»Z"E<  IXX).f."8S(lE7.U»3)*3»(  IF 7 J/3) 

2999    C9MIV.E 

x-l6X$n|  XX 

X^'XbKi^.AXS 
3'J3.l    C9*TlNi,E 

jCCLE    »    MCVCLEilMI) 

D6   3D10   JJJJ   a    1/JCVCUE 

CUKVIjjjj)    »   CVC(1III»JJJJI 
OOiB    ADLIJjjJI     b    103000« 
C    1XTRIX    ASSEMBLY 

39    301     HelJlC-58 
301    EdlloCO 

*1«NN«1 

59    31 J    i.=  S#M! 

LL«L!NF(LS 

09    35  0    K.-triI\_„*W,>.xs 

I'INDEX(S) 

j«sJNDE).(<) 

IFd'EUeL)    OS    T6    305 

IfiJ.ML.L)    OS    T8    SIC 

Kb   LU=i..Ul, 

£<LLU     i!    E!L.LLI     1    AMN(K) 
IF(J.QT°D    ^8    7*    110 

tlULJ!    e    E!Ll-Jl    «A.MS(K> 
310    CBNTI^E 
C    T«lAN3JL*T!C'N    t1'"    ilATRlf. 

39    325    IaljNi 

LI'LINF (11 

33    325    J«J.I 

SJ1»0oj 

,.J«L!Nt  (J) 

IF( j.Eu'l)    US    TB    317 

jFIN.j-1 

39    315    K.1,JF[N 

Ll««LNK 

IJX.LJ»K 
315    Su1jSu,-.*E(lI«)'E{LJ<) 
317    k|J.UI*J 

iFl  I  •£(>•  J)    UH    T3    -,T, 

3li    IF(E(UoJ)«l.E»C«-)3000i)    GO    fB    3001 
3 1 S    E  I  U  -J  >  *  !  E  <  i. !  J  .-  SU" )  /f  I U  J  J ) 

56    79    a25 
v'.    IF(E(LIJ)«LT.SL>«)    (58    TS    3002 
;'..      r  •■■'-;  \uK 

EC   '    !i-S3RT(T£KPl 

>";;■  i: 

C    !*".'£=:         •    t)F    LB«EH    Yl*IANei.t 
0.;    '  ■  i    '•  I.n; 
.  i    Li ■■->  ('  ) 
LILLU! 
32o    IF(E(Ld>vJJL»OiBOCC)<HJ    r.n   ?a   5-;o3 
HI    PIVBTcl'/ElLIll 

IFII.E..1I    U8    T8    3»0 

IFIfvi=  I»l 

DS    335    J.i#IF|N 

SJI'O.O 

33    33C    K-JdFIN 

UKJ«LII>.F(K)*J 
330    SJ"i»SUh*E(LlK)»E(LKJ) 

LlJvLI.J 
333    E  (UI  J).-PIv"T«Sl.Jf1 
3*0    EUIILPIVBT 
C    CALCUL»TI8\    9F    INVERSE    «F    MATRIX 

39    35j    I.i^l 

LI.LlNF (I) 

39    35.,    JM.I 

StP'O.'. 

35    3»S    <=I»Nl 

;.*»LINF  <<) 

L<I»L<«I 

3*5    SJi.SUl  »E(LKI )«E(LKJ) 


s 

100 

5 

101 

5 

102 

5 

103 

5 

10» 

5 

105 

5 

10% 

5 

137 

5 

108 

5 

109 

5 

110 

5 

111 

5 

112 

5 

113 

s 

m 

5 

115 

5 

116 

5 

117 

5 

115 

5 

119 

5 

12S 

5 

121 

5 

12? 

5 

123 

5 

12* 

5 

125 

5 

126 

5 

127 

5 

12S 

5 

129 

E 

13C 

E 

131 

5 

13? 

5 

133 

5 

lit 
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13S 

3 

13* 

3 

13? 

5 

S3: 

3 

i3S 

5 

1*0 

& 

1*1 

3 

1«2 

5 

-  ''6 

3 

:*7 

S 

i;/ 1* 

S 

1*9 

15 

155 

." 

151 

S 

153 

5 

IS? 

5 

15? 

5 

15S 

5 

160 

5 

161 

5 

16? 

5 

163 

5 

16* 

5 

165 

5 

166 

5 

167 

5 

569 

5 

169 

5 

l?w' 

5 

1"! 

0 

»'? 

3 

1?3 

5 

17» 

R 

175 

5 

1?& 

5 

1  77 

5 

I  '/!} 

5 

179 

c 

180 

5 

iM 

5 

lHf 

c; 

1?J 

5 

1«« 

5 

185 

•3 

186 

S 

187 

5 

1»S 

5 

IK9 

5 

190 

5 

191 

5 

132 

2 

S9:j 

o 

19. 

5 

HE 

5 

196 

a 

197 

198 

5 

195 

5 

2?C 

5 

H.M 

5 

20? 

5 

203 

5 

■25* 

5 

2US 

188 


350   EILIJl.SUM 

LRBw.LlNFMN)*! 

D8    3SO    I«LRB»,LELMT 
3«0    E{ I!. 0.0 

08    3550    <.l»KMAx 
3350    5(K),o 

D8    376    Ltl.NN 

LLH.IMF (L) 

DB    375    <nK,"1IN»KMAX 
3552    I»IN0Ex(K> 

IF(I<El°L1    B8    TS    360 

IFtJ«.NE.tL)    «8    TB    375 

J«I 
360    LLLoLLi-L 

fFU'GT'L)    US    T8    365 

li.J»U-  +  J 

S9  TB  370 
365  LL>LINF(  J)*U 
370  CONTINUE 

6(«)  =  5(K)*E(LLJ)-E(LLL) 
375  CBMTINuE 
C*»«e  C8MPUTE  X("N) 

06  379  KsK,llN/K*iAX 

X(*}»3 

S>AK*l(lO<>BETA(<)+l 

X(K!i«(KI*A"N(K)«3 
X(t!)»t5»X(lO 
379   CBNTlNuE 

390    CO^TiMuE 
C  TEST    LIST    3>    SIGNAL    CYCLES 

06    SRSo    JJJ«1*JCYCLE 
SCL'WCURvlJJM) 
08    »5lo    KoKrtJfv/KKAxS 
SB    *5ll    <IJJ»S»* 
!9iKIJj).0 
■•511    CBNTJnuE 

| JP« INDEX  IK) 

I9(1I»INTS(  UJP! 

I0^».J:*!,EX<<! 

I9(2)aINTS(lDN) 

I8(3UI"AZt(K) 

19U>«CLmv(  JJJ) 

CALL   CSWECTl  IS.KORR) 

ncea«iC8Rs 

i(<)oSCLMFl3F.AI.  IKK-FIC6R/2  0 
*513    CBMTINuE 
C    SET    jP   FHST    3A">E 
EPSI.toOOOl 

OLVnN    i    liOE*35 
C   PLA»   SERIES   BF    l»AME3 

MG*MESoi5 

06    790    "UUNaAiiES 

OS    l>50    KsWKIAXS 

S3(K>eSIK) 
»55   CSNTINjE 

DB    ISO    Inl.-*"^ 

IRN»205i»!HNDM 

I  RMDMsKSOdKNaMStiOtl 

RNDKXoIRNOM 

fD(I)  »  SiND"1*  /  tlStSOti 
*   C(I)=0.0 
*60  ii ! )oO»0 

TO(NN).O.n 
C    TkA'vSF,9Sv!    TP    STARTIM6    PCIST 

DO    560    x»Krt!N»KHASa 

[•INDExlK) 

JoJND£*(l<) 

7i*ao(io»Ta(  n-;D(  ji 

IPIU)v3Ci5l>C,5»: 
510    TWUlO 
520    IRTWu«5)510*553»550 
530    T1*T1«] .0 
5«0    |F1T1oc'5)5"jD»53J»530 
S50    (ja(K)«Tl 

C(  1  )    •    C( !)-AMN(K»»T! 

C(J)  »  CIJ>*A1r,(K)»Tl 
560  CBMTINuE 

ITERSo 
C  SPTJMIZE  IN  JIvEN  KElJlON- 

05  590  I.l.NN 

LI°L!NFU> 

D8  585  Jol»"<N 

IF ( J.uTtI )  SB  TB  5SC 

LIJ.LI*J 

53  TB  583 
SSO  LlJ«LIf*RJ)*I 
58.3  C8NTINLE 

0( I )»D( I l*E(LIO)»C< J) 
565  CSNTlNuE 

T0( I >.TD( I )*0<  I  ) 
590  C8-'TI\uE 

CH1AXL.0.0 
C  r^A^S^BRM  TB  LOCAL  8PTIM0^ 
620  08  63C  K«H«I\»K><AX3 

l.INDEx(K) 

jo JNDEx(K) 

™"  >-'.a(K)*oi  I  i-oi^i 

630    CBNTlNuE 
C    SEARCH    F8R    NEIu'W'    BPTI'IA 
635    CH"1AX»r»0 

08     656     K»KMlM.KMAX 
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2«5 
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2»6 

S 

2«»7 

s 

208 

5 

2A9 

5 

250 

5 
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5 
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S 

253 

5 

25» 

5 

255 

5 
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5 
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5 

25S 

5 

259 

5 

260 

5 

261 

b 

26? 

5 

213 

5 

p*.*: 

5 

246 

& 

.'!.'•  6 

5 

IhV 

5 

£63 

5 

265 

S 

270 

5 

£71 

5 

S72 

5 

273 

5 

27* 

s 

275 

5 

276 

5 

277 

5 

275 

5 

27« 

5 

?S- 

5 

28! 

5 

2*? 

5 

283 

5 

2»» 

5 

285 

5 

286 

5 

Bf>7 

5 

2KB 

5 

289 

5 

2"0 

5 

asi 

5 

2^2 

5 

29* 

5 

295 

5 

296 

5 
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5 

29? 

5 

299 

5 

3D3 

5 

301 

5 

302 

5 

303 

5 

30k 

5 

305 

5 

3:f 

5 

3'17 

5 

308 

5 

309 

5 

310 

b 

311 

KK-K-KI-  IN*1 
Y(<K).*"VI<<«).3(5(KK  ) 
6*0    CSMInuE 

C-iJLY.aKKI-ASSIS) 

IF<C*OlY.GE'CHMAA>    SB    T9    650 

C-CAX.CHULV 
650    CS^TInlE 

IFiCh.-iax.GEm-EPS!  )  )    69   TB   7o5 

iF(CHK*X.eE«CH^*«L)    58    T8    66? 

CH*AXL«ChMaX 
662  BlTERS=ITE^S-53 

IF(BITt'»S.LL.O.-)  SB  T9  668 

CITERS.ITEBS.JCO 

3ITERS. ITEMS. 151 

S.EPSi.tl]TE»'S 

IF(CH"\4X.UE.S)  GO  T8  705 

3.EPSI«CITE*S«CHMAXL 

IF(CHiAX.GE'S)  G8  T8  705 

SS.ABSlDITt^Sl 

S.SS°£PS1»D1TEKS«C"*AXL 

IF(CHMAX.GE'S)  68  T8  705 


S68 


"i« 


680 


■.K.K-Kr  IN+1 

ITERS.ITERS*1 

Sl'(K«) 

1FIS.GE.J.-)  GS 
670  EN=ltO 

58    T8    o90 
080    E\»»1«J 
690    Q'itKKI.QOKK  UEK 

08    6913    L«1»SN 
69i3    D0(L)"O'0 

A-!NP.Ar-.N(K)«EN 

I.INDEaCK) 

o.JNDEx(K) 

08    700    L«1jNN 

IF(J.GT.L)    G9    TS    692 

LLJ«LINF(L)*J 

G8    TB    69* 
692    LLJ»LI\F(  J>*L 
69*     [Fl I.GT-L)    U3    T9    696 

LLI«LI nF(L)»1 

68  IB  h98 
696  LL!*LIUF( Il+L 
694  CSNTINuE 

S«»'viNP.(ElLi-J)-EIULl  I  I 

do(l;>od(d*s 

0(L).0D(L> 
TD(L)dTD(L1*S 
700  C9*TSnlE 
G8  T8  o20 
C  CBMPjTE  FINAL  OELAY 
70b  DELAY. 0«0 

08  708  k»km:n»hmaxs 
708  delay  »  oelay  *  amm  (  ki  *qq  (  ». )  »qq(  k  ) 

S.ADL(-jJJ) 

IF(DELaY.I.T«S)    A'DLIJJJJ'TJEUfy 
C    STANDARDIZE    i>(  I  ) 

08  7<>r    I»i#NN 
Tl«TDl I ) 

711    IF<T!)720»7*0#738 
7i0    TIoTUb.u 

09  TB    711 

730    T1"AM8l(T1,1.0I 
7*0    0( ll.TI 

IF<DLY,*.N.LT>-,. 00001)    G8    T6    903 

Tie<DELAYoCLYM\)/DLVHN 

GB    TB    90* 
SOS    UoDELAY-DlYIN 
90*    CBNTINuE 

S»»9S(T1! 

IF(SiLE«0«00301)    GB    T8    905 

IF(T1-lT.0«0»  G8  T8  910 
9ub  IF(  <M«f«8*I.<)iGE«9>  G8  T8  792 

G'JTS  790 
910  \8lIN.h 

DLYMN.DELAY 

08  75*  <»1,N\ 
75*  AE(K).jlK) 
790  C8^TlNuE 
792  CBNTINuE 

IF(  18P.ES. 1  I  68  T9  5*'*0 
5250  C8*TlNoE 

J'l.jCYCLE 

X~^.1u.E+1  j 

08  5310  J.1«JM 

S'ADLl u)«CUHV( J)«»2 

IF(XMN.LE.S)  G8  T8  5310 

XMN.S 

Cl  •  CURvlj! 
5910  CS^TINuE 

Cu"<</(1  l.CL 

I8P.1 

G9  T8  39C 
5**0  19^.0 

D9  505'   IS  •  1»NN 

ICSNT.p.TSI  IS) 

19(11. CL 

19(2). AE( IS1»Cl*0.5 

I?(3I. I  III 

CALL  l_UADAT(  1C9MT,  19) 
5<J50  CSNTINuE 
C 

c 


5 

312 

5 

313 

5 

31* 

5 

315 

5 

316 

5 

317 

5 

318 

5 

319 

5 

325 

5 

321 

5 

3?2 

5 

323 

5 

32* 

5 

325 

5 

326 

5 

327 

5 

328 

5 

329 

5 

3JC 

5 

331 

5 

332 

5 

333 

S 

33* 

5 

335 

5 

336 

5 

337 

5 

338 

5 

339 

5 

3*0 

5 

3*1 

5 

3*2 

5 

3*3 

5 

3«* 

5 

3*5 

5 

3*6 

S 

3*7 

5 

3*8 

5 

3*9 

5 

350 

5 

351 

5 

352 

5 

353 

5 

3b* 

5 

355 

5 

356 

5 

357 

5 

358 

5 

359 

5 

36C 

5 

361 

5 

362 

5 

363 

5 

36* 

5 

365 

5 

366 

5 

367 

5 

36S 

5 

369 

~3Tfj" 

5 

371 

5 

37? 

5 

373 

5 

374 

5 

375 

5 

376 

5 

377 

5 

378 

5 

379 

5 

380 

5 

3*1 

5 

382 

5 

383 

5 

38* 

5 

3HS 

5 

3*6 

5 

387 

5 

388 

5 

389 

5 

390 

5 

391 

5 

39? 

5 

393 

5 

39* 

5 

395 

5 

396 

5 

397 

5 

398 

5 

399 

5 

*00 

5 

♦  01 

5 

*02 

b 

*03 

5 

»0» 

5 

*05 

5 

*P6 

5 

»07 

5 

*08 

5 

*09 

5 

»10 

5 

*11 

5 

*1? 

5 

*13 

5 

*1* 

5 

*15 

5 

»16 

:\TRY  INT9  LBAOAT  TB  8PTIMUE  BPEPA TBP  ENTERED  6FFSETS 
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c 

C''.U.  LaAD*T(.NN,  I  NTS  I 

G9  T3  bbuo 
3003  C8NTI.NUE 
3002  CSNTINuE 
30U1  CONTINUE 

Ca'.,L  0BU5l«»U) 
5SP0  C?MInoE 

SEI'uKN 

£NJ 


? 

»13 

*J 

119 

^ 

*23 

5 

»Bi 

5 

■!?8 

3 

•  23 

5 

»2* 

5 

125 

S 

426 

5 

»27 
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2,6,1^0    SUBROUTINE  CORRECT 


•         CBRRtCT 

SUBRSuTHE    C-WFCTl  ITB'  ICP  =  «) 

Ce"^e  .  /BL<7  /»«(>1IUI     »  !NTH[(31l   ,  t\?2I(3;> 
•  «CTC(! 7),<3PHI (31  I.STUPF.'^UL  (31  ) 

CBire:-.  /SJCtJM/  oR«eFS(12»)»!i5(l?»)*IF»(3l)»ENTCVC(3l)jSPLIT(12it)j 
1  CGRPM31) 

C9"MBN  /PAT'^G/  *bCSTKT(U«l.4BtE.ND(l?<(|»r;l»Sl31liD£l.T,3n, 
1  SMAbu<12*>»S»eC(  12»)»SiJ"iCFC(3l  ) 
C9MPUTE  CBRRECTIBN  FACT8K  F8«  PHASE  CBNNECT I SN  9TH£»  Than  A  <  A 

IPHi2|.M8D(IT8(3)»3) 

IPH(1 IpITB(3)/3 

DB    100    !«1»8 

FACCl.o. 

IF( IPHI I ) .EU.O)    SB    T8    100 

ID»t ITb( I ) 

jD*o»»( IDX<-1 1+1 

CALL    GETUY(SMTABC, jOX«3»IFX) 
GET    CYCLE    LENGTH       (GREEN    T I -F.    SM.YI 

[CL.BnlTB(4>«:FX 

CALL  3ETdY[^3Ph!< IDX»H3P) 

CS^PUTE  A  .  PHASE  DURAT18M 

IMXe2.( IOX-1 )♦! 

CAUL    HAL?(SPLIT,INX» ISPL) 

aa>!SPl«Kl 

CALL   SiTBYlSMTABCjjOXj  J.BM) 

APH.AA/1000»*ISM 

FAC( I I.APh 

IF(IPH( ll.EU.l)    S9    T6    100 

IFIK.3P.GT.I )     GB    TB    20 

CALL    HALFIS^LIT, INX»1» JSPL I 

BA»JSPL«ICL 

B9«KL-(AA«BA)/ia00- 

CALL  GETSYlSHTABC, J0X*1« JS«) 
CBi^UlE  B  ■  PHASE  DuRATIBN 

bfH.astjs?" 

FACi I loFACl I ItBPH 

GB  TB  100 
BO  CALL  GETBY(JFLT,IOx.!OlT) 
L88K  AT  Liv£RtAPPI\G  PHASES 

FACf I>aO. 

IF( IDLT.jT.1B8)  G8  T8  30 

FAC( I l.IDLT 
30  IF(K3P,Eu.Bi  Gtl  TB  100 

FAC! I )=FAC( 1 )«*PH 
100  C3"<T1NlL 

ICSRH^FAClBl.FACIl  I 

RETURN 
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£. 

15 

8 

16 

8 

17 

8 

18 

ci 

19 

8 

BO 

8 

21 

S 

BB 

8 
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8 

e« 
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B7 
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2P 

8 
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3* 

8 
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8 

36 
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3S 

8 
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8 
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*S 

8 

»6 

8 
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8 
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2.6.101    SUBROUTINE  LIN KD 


ROUTllti       LI>i«U 

C          «          LINXi  6  1 

aJtSfceuTIME    LI'.kDI  1=8,  I\T.L'«K.LN0X,  l\?X,  JSDX.  KNOXj  L'AS  1  6  2 

3nE">Sl8N    ISB(8)jI'-T(*6),L">]'(l7bi»l.Nr;)(il73)»IN0X1175)j  JS3XI175).           6  3 

1     <^DX(i75!»LNK2(17S)»  ISBN(S)  (,  k 

CS^MS-M    /jJD*T/    GCl'.TOI  )<GC'vTSI  (  2  )  <  SKP\5(  ?  )  j  NCI6f«P'l  S  ),  V33CLI  2)  -  6  5 

1    VICI-ih(2).,MCR»VLjf»tiRPS  0  6 

CS"iMS%<    /.iaLlNK/    LI  .»LU31  : . L 1 N<HT ( 66  ) .  I  ALP1-"  (  66  )  »  GliA*  |  66  >  .  6  7 

!   L^s.'r&i).  ->C2lsi  1 2)  6  e 

39    13    l»l#ib  6  ? 

I N  T ( I >  s  3  6  10 

is  csn'Tiu.e:  6  ii 

D8    3'J    l«l»l75  6  1? 

L**fl>.»3  h  13 

L^Jxl I l«j  6  1k 

IVJx(I)»0  6  15 

JVJX(!>»0  6  16 

KVJX<I)a0  6  17 

lM<?(!)«J  6  18 

20    CSVTINuE  6  IS 

icr.o  6  20 

3?    33    lilir  6  21 

If ( ISB( l)«EU»o)    of    Ta    *C  6  2? 

IS9MI)»ISo(I)  6  23 

IC'oI                            .  6  24 

3*    C9NTI\LE  6  25 

10    jST*0  6  26 

J?    61    ]»li ILT  6  27 

IIMSri.lI)  6  28 

CALL    'itTOYl'JCI^RP.  II.  IUN)  6  29 

CALL     jETaYfUCNTSIi  II.  1ST)  6  30 

23    50    j»l.  1  on  6  31 

I  I"IST*J  6  32 

CALL    olTuvii'CB'.T.  I  I.  INO)  6  33 

jSI.JST»l  6  34 

IMT(JSTln!'.J  6  35 

5U    C9^TI\uE  6  36 

SO    CSNTINl,E  6  37 

C         TAbt£    Wl    :JSa    CONTAINS    N8DES    IN    SU6    \ET*SR><  6  3? 

C            NS*    uET    LI-"«S  6  39 

Nu*»0  6  »0 

3b    aD    Isl.l'-T  6  '1 

II'ISUMI)  6  »2 

CALL  if THY|N2GCl» I IjLNKT)  6  »3 

CALL  itT«Y;liC2LSI,  I  I »  1ST )  6  *» 

35  70  jili,.VKl  6  .5 

II-ISTi-.j  6  »t 

C*LL    itTSYr'JlL  •<.  I  l.LM  I  6  47 

\L<«f-Ln.»l  6  «S 

l.\*(\La)»L  rl'  6  »9 

LN<2(  .lOcI  I  6  50 

w)J"t'(  I  1-11*1  o  51 

CALL    3LTBY(LMNb,  JJ,  LN0M  NL<- )  )  6  5? 

CA^L    JtTaY<L"MJ, JJ*1,  P'DXOLO )  6  53 

CALL    jE.TBY(L1t\i8,JJ»2>JND*<NLK)  )  6  54 

CALL    JtTtfY'L'iNfc.JJtS.KNDxr-LO)  6  55 

7v    CSNTINu-E  6  56 

SO    CB-JT!  :L.E  6  57 

C    K3EX  TABLES  '15.  CBNTAIN  NUDE  NJ1BERS  6  SB 

C     NS«  CBNvERT  ~10£  NUMBERS  T3  N90E  IMCECPS  6  59 

BS  100  lal.MLK  6  60 

JJ»LN3*(i)  6  61 

CALL  br.C"(  jj.  I'.T.  JST)  6  62 

^JXUi.JJ  6  63 

JJ'IVJaC)  b  <„, 

CALL  SkCnfJJ,  F.T/JST)  6  ^ 

jj«JNOa(I)  6  67 

CALL  S-Cm(jJ.  J  O.JST)  b  ,,„ 

j\JX<l)"JJ  6  «,9 

*ij-*n.Ja(I>  t  7i 
CALL  ShCh(jj,  i;.t.  JST) 

<\JXt I )oJJ 

loo  esntinue 

RETURN 
EV3 


6 

71 

6 

72 

6 

73 

6 

74 

6 

75 
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2.6.  1G2    SUBROUTINE  L.LGTHF 


kjut:  «t:      llj'hf 


I.LGTmF  LINK    CAT* 

S/SfJt'u7l<E    LL,<>TMFfL2»LCiTjI*Z,lI«j1SP)    ■ 

CS-'hSN    /oZLl^f./    lI'^LIISI  >»LTN<HT(66)jIAlP*(6*>/01L,'<<6SIj 
J     u.-"^(,?i2>,  JCiuilicI 
CS^'MBm    /SP.-'LT/    J»l.P'J<6o) 
:j«'»    VLT/175/ 
C»i.L    ^ALi-"(LIM<L>lSjLCT) 
Call    jfcTdY(U\m*T,LS»IF'Z) 
C*UL    Ut  TJY(  UlPM/L^iLI^I 
CAUL    lieTtfV(J»LPM»L2#Mkl) 
MSB«KM»"OLT/103 
wgluR.M 


ta 

1 

62 

3 

62 

3 

i2 

11 

62 

5 

62 

6 

62 

7 

62 

H 

62 

q 

62 

13 

62 

11 

62 

12 

62 

13 
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2.6.103    SU  BKOUTIN  E  I  OADAT 


RBUTl <E!   LBADA1 


LbAD  8FFSETS  ANC  VARIABLE  INTERVALS 


»    L6AO„T    >•   LBAO  9FFSETS  AND  VARIABLE  INTERVALS 
SJBRBUTlNE  L6ALJATI  INT/JT8) 
DIMENSI8N  JTB;3) 

CS^MS.m  /BLK7  /AB61H6)     I     INTHJ;?J)   .  1*731(31) 
»  <CTC  (  1  7  )  j  K3PHI  (  31  )  »  SYiiPF*  NQL  ( 31 ! 
CB'-'MBN  /BLK14/   CLENS  "TLNG        j   i.'«LNG 

•  DOMVIj  JUMY2,  CNTLN(3"2)  iENI  FL  ,  i)  i 

•  KCL(17>»  <CTF(i7)»  <cs~  (;.;>• 

•  NMVAR(31)  ,       SEMSK'S)  , 
C61MBN    /BL<18/      C!CTF(3) 

S5GT(121)         , 

GGGGU24I 
VKMOII  , 

.RKBFSU24), I 


V»INT(12J) 
Ci'8DF(S) 

c  vac  on 

G4WTP431 1 
GJABCM2*) 

wR<BF(3j ) 
)!124),  IEAI31 


LKPTRI64) 
STBYDI6) 
ENINTU96) 
GBwTP(31 ! 
lNTDj(4Si) 


VC(31  >» SPLIT  (124 )i 


»    C9nTB(62) 
c    EN6KF(31) 
•    GLA3CM24) 
.    SSSS(i2»| 

CBMMBN    /u2CO'J 
1    C«RPN<31) 

C6MM8N   /PATNG/   A8CSTST(12»)»«BCEND(  J8*)»BIAS(31)#DEUT(31)# 
1    S"TABL!12t I.S'BCl 124),SUMACSC(31 ) 

Ce"^8M    /HSL'JSS/    SURC8NI124),    HLDSPLU).    HLDSFF(4),  IGATE",  IGP.TE", 
1    SFF8Pil2*> 

INTEGEh    SUriCON,    HLOSPL,    HLUQFF,    BFFBp 

IF    (INT    .IT-    0)       36    TB    100 

ICL»2-uTB(l  I 

IASF.g.jTBie) 

ICBF.O 

iNS.s.l INT.l i*l 

IN4»4.( INT-1W1 

I1l6«lo«l InT-J >♦! 

CALL    UET.3Y(BI»S,INT«IBS) 

IF( IBS.GT.l28)    IBS«12S"IBS 

JJ'IABi «IBS 

D9    10    !«1»17 

ITL.I 

!F( ICL.EU.KCL (1)|    G8    TS    £0 
10    CBNTlNuE 

ITC.8 

ICL.KCL(ITC) 
23    CBNTINuE 

ITC.ITC-1 

CALL   PkBYKENTCYC,  INT,ITC) 

IFIJJ.lT.OI    JJ«JJ*ICL 

IF(JU.GE.ICL)  JJ.JJ»ICL 
C     ST8KE  8FFSET 

CALL  PkB/TCHKBF/ INT,  JJ] 
C      GET  C8iMT-<BLLER  TYPE 

CALL  GETBY(*3PMl,nT,K3P) 
C      GET  A  PHASE  SPLIT 

CALL  HALF(S^L!T,lN2.IASP) 
C     GET  T8TAL  TIME  N8T  PART  8F  PHASES 

C*LL  GtT8Y(SMTABC»  INli  +  3»  IFX) 
C     CBMPOTE  AVAILABLE  GREEN  Tl^E 

JCL.ICL-IFX 
C     CBMPUTE  A  PrtASE  GREEN  TIME 

1APH.I jCLo I ASP+500 1/1000 
C    a  phase  variable  Interval 

CALL  GtTBY(VRINT» SN4.IAVJ 
•    JAV>Ih|)6*I*V 
C     GET  SUM  BF  FlXE^  INTERVALS  IN  A  PHASE 

CALL  3E.Tt)Y(  SABC.  IN*.  IAFX) 
IF(  K3P  .E3"  2)   CALL  BETBU  SUMACBC,  INT,  UFA) 

IAPV»lAOH«i«FX 
::    ST3RE  A  PHASE  VARIABLE  INTERVAL  VALUE 

Call  P".byT(F\i'.t, jav.japv) 
CALL  jtTBY(S"T»EC  IN*,  IFV.A) 
I  A J»I AP~« IFNA 

C  C5vauTE    9   P-iASE   sffsET 

;BSF»I jBF*JA3 

ifi  iBeF.  je.icli   iB9F.iaeF.ic 

C      oET  L9«'J  tLA3 

CALL  3lTiY(  !•},  I\».3,  ]LPF) 

jb  t»  ii:,<:,s;,t])i<3i>«i 

C  Trp£     ,    CB'.T^gLLER 

30    CSNTlNuE 
C  9    P«ASF    0„RATI9. 

li^n'-jLL-lA"- 

C»LL    Jt,BY(S»bt,  1N»->1,  IBFxi 

IH    *JP    .£;•    3)       CALL    jETBM    sj-a 
C  C3~""jTE    y    P-.Sr    varm^e    Inte.  =  val 

I9»V.IrP-,.[3f  j 
CALL     «TBY(VR1-,T,:  .«.l,Ii„) 
J3v.l\;(,»j.,v 
C  ST9-E     J     p,»Jt     VA^IA  =  LE     INTE-IVAL     ^»«' 

CALL     P«-JYT(t  -I     T,^,,,^,. 
KULP*  .'.-...)    ^    t-    3i 
C*Ll   »»irr|A5c>,|vT,!.i6E| 
35    [!9NTIn.> 

CA.L     P^■JYT|  IB,I\»#[A-F) 
CA„L     P.  J»T(  1^,  is.!,.;  ,  ,Q.jf  , 
CAlL    P«.BYT(I8i  is».c#IC9F) 
C'LL    P^BYT(IEAJI^T)viTB(^!  1 
I'I»3P     .EC.     1 >»CLa„CL-ICP~ 
C»lL     c«.tiYT(  Jj-jT^lNilJ 'jCi  ^ 
SE'liR-, 
C  TY«E    1    C9NTK«,LLfi  r^yc  £ 

"I    C5--TI\„£ 

C  r    c,iASE  ^oL,  t 

L«LL    HALF  (i'LMi  1NS»1,  ICSP) 


MC.    I 
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9 
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9 

5 

9 

t 

S 

1 

9 
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9 

9 

9 

10 

9 

11 

9 

1? 

9 
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9 
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9 
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9 
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28 
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29 
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35 
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9 
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*5 
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46 
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50 
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53 

9 

54 

9 

55 

9 

56 

9 

57 

9 

58 

9 

59 

9 

oC 

9 

61 

9 

6? 

9 

63 

a 

64 

9 

65 

Q 

it 

9 

67 

9 

68 

9 

60 

9 

7- 

9 

M 

9 

7? 

9 

73 

9 

74 

9 

7A 

9 

'6 

9 

77 

9 

7« 

9 

79 
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i "  1 


I'? 

1^3 


call  seTfjY(V!»r.T»  i\»»a,icv! 

C     C  P^ASf.  v»R1*I?l£  Interval. 

CALL  3ET>iY(SABC,IN»<-e«  iCFXI 

If  (  ICP,.wTtO)  u?  T3  »i 
C<-LL  P«.3vr  us;  .T,  JCV.  (Cfv) 
»!  CJNT'.uS 
C     S  "  PHASE  »»«I*3LE.  ISTFOvti. 
CAUL  it  -,v;V9I  .Ti  I  >«*|.  I  iV) 
JbVr!Me»!BV  j   ; 

CALL  S£TtSY(S».BC,  1N»*1jISFX>  •>   ; ; . 

IB^VBijCM-ibrx  ,     •;"» 

call  "»»d»r(fc'<isTj  jjy.japv)  -.  ;: » 

CALL    Cil-:TaV(SMTA8C/!V**i»!f  ^»)  J       ; •. . 

!CSF=;d8F-HBPn*IF'ja  -(       ••« 

!P(IC3F  •>}£.  ICL)  IC«'»IC8F«!CL  9       l!» 

35    TB    j5  ?       !".■> 

C  TYct    2    i.1*  jTRBLLE-         A/C    SyEILao  '       : :  • 

5t>   CBNTInlE  *      !'. a 

CALL    liET6Y(JELT»INT/ICLT)  ?       :■>- 

,'FIIDL  '•viT.128)     IDLT.128-IJ1.T  ->       '  ■" 

IC»F»I*8F*IUL7 

If(KSFtLT.O)     IC6F»!C9F*:CL 

[FUCSF.IiE.ICL)     ICSF.ICeF.IC. 

IFI  IDLT.  jE.O)    (>e    T9    30 

lfOF.Icflf'MAD 

G9  T8  30 
C       T»PE  3  C9KTHPLLE.0    E/C  9vE*L*P 
60  C9NTI.MuE 

CALL  jF.toY(L)ElT.  INT.  1DLT) 

iFI  I0LT-.LT.128I  G9  TS  7C 

IDLT»128-I0LT 

Io9ForBBF*H>LT 

IFI  IBBF.lT.OI  IP.0F.I38F+ICL 

IC?F«I39F 

w   re  .,.3 

70  CENT [fiuE 

!C8F«l!Jt)F*I0LT 

oe    TS  30 
100  US  13o   (M8LU  .»  i,     *HN 
C         BET  C9NTH8LLER  NUM3EP 

ICON  a  JTBl IHfiLD) 
C         IS  HL08FF  FLAG  SET  FB1*  THIS  CBNTRBLLFR 

C'LL  3LT8I(  HL09FF,  ICBN.  ITFM.  0) 

IF  (ITU  .  EC.  -/)       88  TB  130 
C         hLL>8F:~  IS  SET  .  COMPOTE  P9IME"  TB  9FF9P  AND  SURCB".  aPPavS 

jVEM  :     !(  ICON. J  I  «  *)  •  1 

C        DETER1|'4E  t-'CLC  LENGTH 

CALL  QETBV(  CYClO  ICON.  ITEM) 

JHCYC  «  0«5  »  KCLtlTEM) 
C         EVALUATE  PBSSIflLE  6FFSETS  FP8M  0  TB  CYCLE  LENGTH  .  1 

hJN  »  15000 

39  120  *.1Z«    .  1#  nCLlITEM) 

I  SUM  e  0 

39  lie   LTL-1  a  1j« 

CALL  GLT3YC  SUKCS^,  IKTEM+LTeHIj  ISURCM 

IF  (1Sl«CN  -Eg.  0)   3S  TB  111" 
C         GET  CJPSfcNT  BFFSET  BF  NEIGHB8K  CBNTB9LLE^ 

CAUL  GETaY(EN8*F,  ISURCNj  N8F?) 

C     SJBTKACT  dii-fekencl 

M8FF  •  N9FF  -  (<TEM«1) 

I^SuPE  DIFFERENCE  BETWEEN  ♦.  o«5  CYCLE  LENGTH 
IF  (MBFF  ,GT.  IHCYC)    N8FF  „  NBFFF  „  KCL(ITEH) 
IF  (NSFF  .L'"  -IHCfC)   N9FF  .  N9FFF  ♦  KCi.lITEM) 
C         SUM  DIFFERENCES 
ISUM,  c     IS0.1  ♦  NBFF 

II  J    CBNTINuE 

III  IF  [ISuM  >3Ei  HJN)   :8  TB  ISo 
MjN  a  I  SUM 
i-.B    r  KTEM  -  1 

120  cbnt;'„je: 

iT  (11«  .£Qi  10000)   GB  TB  130 
CALL  PkBYTc  ENBFF.  ICBN.  "9  1 
130  CBNTI.MUE 
IRETUMN 

END 


3 

i  j: 

9 

hi 

9 

i  »? 

9 

1  J3 

9 

1J» 

3 

135 

9 

13« 

9 

137 

9 

13« 

9 

139 

^ 

1«D 

9 

1M 

9 

i»a 

Q 

1*3 

9 

lit 

9 

1»5 

9 

1H 

9 

1"7 

9 

1»| 

9 

1»9 

9 

15C 

9 

151 

9 

15? 

9 

153 

9 

15» 

9 

155 

q 

156 

9 

157 

9 

158 

9 

159 

9 

ISC 

9 

16! 

9 

162 

9 

163 

9 

16l> 

9 

l«i  = 

9 

166 

9 

167 

9 

168 

9 

169 

9 

170 

9 

171 

9 

172 

Q 

173 

9 

17* 

9 

17S 

9 

176 
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2.6.104    SUBROUTINE  SRCH 


ROUTINE)       S^Ch      Sf.AKCin    'BUTINE    USED  BY    IIMKO 

C        •        SKCH      SEaUCH   rbutine   used   BY   LJNKD  7  1 

SUBROUTINE    SRCH(J,I!,M  7  ? 

31-iEMSIHM    Il(*5)  7  3 

K«3  7  « 

D9    10    !«1#N                 ,  *                                                                                                        7  5 

I F ( 1 1 ( I I.NE-J)    G9    19    10  7  6 

«■!  7  7 

.      _S9.T8...i:J.                          ;  7  8 

10    CONTINUE  7  9 

20    J"<  7  10 

KETUKu  7  11 

END  7  1? 
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2.6.  105    ROUTINE  INTFC 


"BJTInE:   IwTFC 


INTFC 

sJ3«9uTI-.E  INT'C 
INTERFACE  ROUTINE 

hit*  'jf»/°v»os 

C9"'M9n    ZoKlfC/     I\TF,NINTFC,N3WPI» INTN 
C?"M9\/-ll.13/    Pv[26J).PS(262) 

:9"m.s-.  /Bnii/     cictf  is) 

CJJ9F(31 ] 

u(5GG(12»> 
TK-131 I 


I\T\JtL|MlV 


•  C3NTB(62) 

•  3lABCi12«> 

•  SSSSl  i2») 
C9""-.f)  .    /3L* 

<LTC(l7>,* 


ct9df<  t 
CyClCO 
Q».TP(3 
GJASCd 
«SKt)F|3 
7    /'fill  116)  >     IST-I  (31  ] 

3»«I  (31  XSTuPF,  <5t  (31  ) 


C9""f"3\    /dL<l»/       CLEN3  ,       OTLNG 

•  3J^Yl,    JU'^'2,    CNTlS(372),E\TTL(5>» 

•  <CL<17)»    <CTF(17)«    KCSM17), 

.    N*vAR(3l)  ,       SE'S<(8)  ,       VSIST(1 

C8MM8N    /o2^IN*/    Ll-.<L(131  I.L!  .<-T(t,6,, 

1    ^\Blrb2),KSLSl  (E> 
C9i-9m    /J2C"',T/    »R<eFS(12»>,  fM12»>,  IE 

1    CRPnOI) 
DI-ENS19.    |-i!f(5),    M NTFC <5 > , SGRPI ( 5 > 
3 1 -ENS 1 8N    jT(2),I^T(7)>A(e),{^(2),is(( 
31 -ENS  19.    r'TMi»),lNT-,e(l»),Ll\»Ma,, 
C9MI-.8',    /BL*LV5/    lEvL54,SRT\5,e\D5,En-c 
InTEGE-    SRT\5,£\D5,ESDSl,BPT!HE,ePTU 


JATAXQ/OOl/ 
39    530    I     i    1,5 


,  E 

,  j 

,  ! 

,  c 


231 
!»JP- 


6«>. 
1,  '! 


-CTK, 


\|\r 

9.T? 
NTrju 

31 ) 


(?) 


(  HI 
(•90) 

(31  I 
(»9t) 


1P(  I'-Tt  (  I  I.ED. 


9BTAIN    T1K£    !V    CYCLE    LEM0T>-    F8R    T.5     ['.TERFAC!  .'j 


CYCLE    LENGTH    4'.^    T]"E    I  NTS    CYCLE    LEV.'"    f9-    Sj3\[I,«i< 

1ST     a     INTN(NGRPI ( I ) ) 
CALL    JtTdYltNTCYC, INT,  JNT) 
CVCoKCi..(JNT*l  )/2 
ECVC<CTC(jNT*l)/2 

EXTRAPOLATE    TI"-E    T9    M1JP91-T    «F     S  I  i 
EC'C    •    ECYC    *6C.»    BPTI-'E/S.O 
MBJULB    EXTRAPOLATED    TI1E 
CALL    PtRie^lECTCO.'CVCCYL) 


SETTING    5wR»T|ok 


CCLE    LENGTH    and    TIME    IN    CYCLE    F9R    SuBNET.HR*    l«l 

INT    i     INTNJINQRP! ( I ) ) 

CALL    (lETdVitv.  LVC,  INT,  JNT) 

CTC2.XCL! J.T*1 )/2 

iCTC2«^CTC(  «HT»1  )/2 

EXTRAPOLATE  TIME  T9  1J3P9INT  9F  SIGNAL  SETTING  Deration 

EC»C2  •  ECTC2  ♦  60.  >    SPTJWE  /2.J 

M8JUL8  r-'SAPBLATED  TIME 

CALL  PtRie5(ECTC2,v,,,CYC2,CYca) 

9STAIN  BFFSET  DATA  FdR  INTtRFA.CE 

3JMADL  «0> 
SU^A.J. 

BBTAIN  PATTERN  8FFSETS  F9R  ImTERFACING  INTERSECT  19  \S  IN  SUU'ET 

INUX  •  NGRPI ( I )  "1 

NB9x  •  NlNTf-C(I) 

Dft  *JJ  J  »  1  ,  N88X 

INJX  s  IN0«  *  1 

INT  ■>   INTN2IINUX) 

CALL  MACA1 INT, IRT) 

X9FS2   •  A-PHSE  8FFSET 

X3FS2  .  IRT  < 1 > 

A9FSBS  «  IRTI2) 

SUBTRACT  EXTRAP9LATED  TIME  FR9M  £NTRy  BffSET  THEN  M8DUL8 

X8FS2  «  X9FS?  -  ECYC2 

CALL  PERI95I  X8FS2,0.,CYC2,CYC2) 

C8"'PUT{  BFFSET  RELATIVE  TB  SuBNETbiSRk  1  CYCLE  LENGTH 

IFIX9FS2.GT.CYC  ) X0FS2«X8FS2.CYC 


OBTAIN  8FFSETS  F8R  SUBN£TwBR<  I  INTERSECTI8NS 

far  r  PATTERN  9FFSETS 

INT  .■  INTNl iNDx) 

CALL  MACA( INT, IRTI 

XBFS       A-PHASE  OFFSET 

X8FS  ■  IRTI1 ) 

X9FSH  .  IRTI2) 

C8MPUTE  IDtALUED  9FFSETS 

INOP  •  I»<DX  "2  -  2 

38  F8R  APPROACHING  AND  DEPARTING  LINxS 

38  330  K  «1<2 

INDL  •  INDP  ♦  K 
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? 
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3 
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k 

13 
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13 
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7 

i; 
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9 

13 

1  D 

13 

11 

ID 

1? 

i: 

13 

ID 

1  <» 

1  D 

15 

ID 

16 

13 

17 

l; 

3C 

1; 

?9 

13 

*: 

ID 

M 

ID 

A? 

n 

«>3 

ID 

s» 

ID 

"»5 

10 

if, 

1*1  ID 

!>7 

ID 

».? 

10 

6  9 

10 

70 

10 

71 

10 

7? 

10 

73 

10 

7» 

10 

?5 

13 

76 

ID 

77 

10 

78 

10 

79 

10 

80 

10 

81 

10 

*? 

10 

83 

10 

SO 

10 

85 

10 

86 

10 

87 

10 

88 

10 

89 

10 

90 

10 

91 

10 

92 

10 

93 

10 

9» 

10 

95 

10 

96 

10 

97 

10 

98 
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ILNK  ■  LIN<N< I^DL) 

ir( IlnkiEQiO)Q8  TP  300 

CALL    LlGTHF(1L-«»L&Th,IFZE.L1MF,MSP) 

CALL    ofMYIlilL^K'  ILNK*  !LN<1) 

C»LL    Lu'19E5t  IL;*K1.  !  V9L. ISPEE",  I  SCO 

]F( IP*3    .NE-     1IS0TU    10 

IFtPvl  1L:<K1  '     .uT«    ollVUL'PVIIL^Kl) 

IFIPSI  lLNKll     .ST.    j)1SPEE0.P3(I!-^<11 

Cb'JTltiuE 

*9L    ■    IV9L 

SPEED    ■    ISPEED 

1-LlM    ■    LIfP 

A(<)    .    </9L    •    ELI"    •    XD 

Fi/JTH    »    LGTH 

Z9IK)     a     PL^MT     /     SPEED 

1FZE  ■  ^9D( IFZE,3) 

IF(K.EU.l.A*D.IF«.EQ.l)  X9FS  .  X8FSB 

IFCK.Ei«'E»A*D.lFZE.Ea.l)  XBFS2  ■  XEFSBS 

3-1.  ■  *9FS2  -  XRES 

IF(K.E!J»2)  DEL  »  -0EL 

XSFSP    ■    iat<)    *    BEL 

FL9    •    -CC/?' 

Frtl    .*    CYC/g» 

CALL    SH"U~95<  «SfSP<t'LD»'"h'I<C,'C) 

S.ilADL    »    S^ADI.    +    *!*>    •    x'JfSp 

3j"a    »    Sul"A    <■    «(K) 

CS^T1'._E 

:?NTI  ,jE 

IMEKFaCE   pA'^a'F'E^ 

ifisl-,.  i\f.  o.riiA°su*AX/s.;,'« 


OE'E** !  iE  C'^C  SR9upS 

!»•.  Sjt) 

]C9kEli l»3 

09  TBU01<c0?»2;3j,2G'> 

j205s«.l 

231 

1C9RE1 l ).* 
L5  TB  =  53 

Sji 

!ORE<l).3 
j9  TB  >50 

<Jj3 

ICSREl : )■>? 

09  79  £5; 

20" 

ICHR£(  •  I--1 
j'.<  Y9  ?<i- 

;^3 

I C^Kt  C i  (=6 

?30 

C3MI\„E 

:  33tai  .  i  jT.;-<SEC7ir«  -.j-be»s  •  ■■.  sjbset-"'^^  i«i 

39    8C-J    L«1.B 

JF(  Kl-tlD't-.'-m    T9    ?3C 

i  i>kf  .  ic9«E!l: 

CALL  oLTIMi  lioRP.  ISA) 

35  ICC  "!  «  i  .«-j 

IF'.  IS.A  l  -  1  .c  J.;  )  o9  T-j  aco 
;      uEI  A-F-SE  BlVaEl  s  e*  t»Cu  !  SYSSSECT  1-9'- 

I\1FS  .  I  \,.<-- 1 

CALL     'aCA(  ISTEK,  Ull 

39    S3    *LP    •    1.3 

*9f»    «     H1[<uPI     ♦    3    •&'-•    •    9=YI"E/e. 

CALL    Pf:^IB5(x9>  A.3«CYCc,C:?> 

I9fA(<LP)     •    x9^  A    ».5 
53         CSNTI'.^E 

CALL    PUTE9FF( IiYfc3,I9FA1 
103       CSMTlNuE 
200       CSSTI'.^E 
5CJ       CS\TI....,E 

3ETUK  . 
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so 
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10 
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1  it 

'  i 

117 

t ; 

It? 

i: 

1*9 

l: 

'.  <■  " 

199 


2.  6.  106    SUBROUTINE  GETINT 


C        •        3ET1N.T  i»  1 

SUBROUTINE    liETI^T(MUReuPij)  u  ? 

DI">£NSI9N    JU5)  1»  3 

Ca^MBM    /iiZCAT/    GCS^T(31),firATS!  (2)<'JRS- 9(2),-.CI3RP(?),\?3Cl<S)<             1*  4 

I     MICIGP(2)»NCRjNL»NGHPS  1*  5 

C                    SETIM    EXTRACTS    TH£    MjOBOP    I  \TER3ECT  I  OSS    FROM    THE    GC?*  T    A&RAY    «M    1«  «, 

C                         T-rt     INTERSECTION    NU~3£HS    IN    T«E    j    ARRAY  1»  7 

C                    THE     ivJE*    F6H    THj-    START    3F     T«E    NGSfiUP    INTERSECTION    NJ«:tERS    lb    L*    1  »  5 

CALL    jtTtJYI'iCNTSliMjPBUP.L)  l*  9 

C                    1    IS    THE    Nu'-'oE'?    Of     I^TE«SEtT!S.\S    Is    NGRBu?  1*  tO 

CALL    uETSYcNCIGH", \3490P.H|  1»  11 

C                    "UT    T^E    M    INTERSECTION    NU'g-ws    IN    THr    j    ARRAY  1»  1  g 

3B   5    !    ■    !  »''■■>  It  13 

j(l>    •    3  1*  It 

5         CSnTINlE  1»  15 

»    1)    Iilil  1*16 

CALL    of  T'iYluCS  ■-T.L*:.  J'  1  :  I  1 »  17 

U          CSNTINuE                                                                              .  1*  18 

HE  TO"';  1«  19 

:Si;J  1*  ?0 
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2.6.107    SUBROUTINE  MAC  A 


S'JUTIne: 


»  ^ACA 

SjBREjTl'lf    n*C»(  INT.I10T) 

01"E^SieJ    1»UY(?) 

CB^MSN    /tiL<7    /*at»S  <  161  i     1N7HK31I       .     INT?!(31I 

•  KCTCl  17>,<JPHI  (31  I.STUPf,\'JL(3J  ) 

CB^MBN    /BLKl*/       CLE^ii  <       DTLNS  »       CMLNi 

•  Durri,    DUi»8»    CMLM372),e.'vtfl(S)» 
«    KCLU7),    <CTF(17),     KCSF(17), 

•  N*V*K(31>  »       SEMS<(8)  .       VKINT|l?3)       '       LKPTR(6«1 

CeiMBN    /G?C»NT/    »RXSFS(1Z*)«  19  I  121 !  ,  IEA  (  3l  I  /ESTCVC  1  3l  I  .  SPL  !  T  I  \it>  I , 
1    CSP..I31) 
IDx.t.c INT-1  I 
OS    13    I«l#3 

jox.iox+i 

CALL  OtTUYl 18/ JD*» I6F ) 

I9J7! I >«I>)F/2 
la  CBNTINuE 

CALL  (it  TBV(tNTCYC,  iM,  I  I  ) 

I8UT(5)«KClI I  I )/2 

CALL    3ETBY(K3PHI,IlvT,  lj) 

ISUT(«)a<lJ 

!D«»2»< INT-S I 

OS    SO    1.1.2 

JOX«JOX*I 

CALL    MALElSPLIT/JDx.iS") 

I8UTI I«5).ISP 
20    C9"<TINL'E 

9ETuS\ 

EVU 
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12 

3 
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M, 

12 

5 

12 
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12 

7 

12 

« 

12 

9 

12 

10 

12 

11 

12 

1? 

12 

13 

12 

It 

12 

1? 

12 

16 

12 

17 

12 

If 

12 

19 

12 

20 

12 

?1 

12 

22 

12 

23 

12 

21 

12 

?5 

12 

26 

12 

27 

12 

28 

12 

29 
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2.  6.  108    SUBROUTINE  PERIG5 


C 

SJ*«B;jTImE    '>F=(1')?(a.LLC/JLC,Cv 

*E»L    LLC 
!    CS^TI'iuE 

IFIx-LlC)3/S.3 
2    x.»*c 

i>9    TS    i 
i    CBNTt'.uE 

If  (X-uuC)  5/5.1, 
*    »>X.CY 

G9    TB    a 
5    C3^TI-,uE 

^E'UR\ 

E\J 


57 

1 

57 

5 

57 

3 

57 

4 

57 

5 

57 

6 

57 

7 

57 

a 

57 

9 

57 

15 

57 

11 

57 

12 

57 

13 

57 

1* 

57 

15 
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2.6.109    SUBROUTINE  PUTEOFF 


b^utine;    putesff 


HuTEflFF  "     \ 

SJ^RBuTlNE  »'jTE8FF(  INT»E9FFS> 


InUGE*  CLC»CY»E8FFA,EBFFS<3)»B! 


13    3 


C*LL  GETSYldlAS, INT.BI )  13 

ENTRvBFFSLT  .  THE  C6NTR8LLFR  »  Phase  8FFSET  .  THE  CS'.T^BlLE"  B!a  13 

E8FFA  .  2.EBFFSI1)  ♦  Bl  13 

IF(E6FF».LT<CY)    G9    T8    20  13 


CSlhBN   /G2CBNT/   i.RKBFS(12*)»I9(12»)»IEA(31)»ENTCVCl3l>»SPLIT(12»li  13 

1     CGRP':{  31  >  13  5 

C9-,f8\    /paTng/   *BCSTRT(12»)»ABCE'')0(l?*)»B!*S(311»OEUT(3l>i  13  * 

1    S*'TABC(12'.)»SAeC(  12«0»SUHACRC(31I  13 

C9*MB\i    /<)L».7    /(.BUIllfc)  <     IMHI  C31  I       «     INT2II31)       .  13 

•  KCTCH7),    <3PH(31I»    STUPF.    \0L<31)  13  ' 
CB^MB'.    /BLK1»/      CLENo                  .      DTLNG                  »       C^LNG                  «  13  It) 

•  O'JHVi,    UUM»2,    CNYLN(37£)»ENYFL(5)«  13  11 

•  KCL(17)j    KCTFI17),    KCSFI17),  13  1? 
.    ".iVANiSlI         ,       SE"SK|8)           ,       VRINT.M23)       J      IKPT«C»»)  13  13 

CO-'neN  /SUM?/   CICTF(g)     ,   CTBt)F(l)     »   STbYD(i)     »  13  1» 

•  CBNT9|62)    »   CURBFI31I    ,   CYCLClSl)    I       ENINTU9*!   »  13  15 

•  EN6FF(31>    i       GG5T(12«I    .   GAwTP(31|    »   SB'aTPCSH    *  13  16 
.  GLA8C<12»)   »   GGuGliai!    .   GUABCMSM   «   !NT0U(»96>   *  13  17 

•  SSSS(l2»)  i  K1-I3JI  ,  «RKeF(31)  13  II 
C  ^LTEOFF  MULTIPLIES  THE  3  VALUES  BF  Th£  SECOND  ARGUHFNT  8Y  T*8,  S  13  19 
C  TMt  SCALED  VALuES  IN  The  IB  ARRAY,  C9HPUTES  The  VALUE  Br  TMF.  13  ?; 
C  ENTRY  8FFSFT,  AND  STBRES  Th£  ENTRY  9FFSET  VALUE  IS  ThE  FN6FF  A  13  21 
C        SCALE  8FFSETS  BY  T«8  AND  STB«E  THEM  IN  THE  18  ARRAY  13  2? 

IP9SN  ■  »•(  INT-1  I  13  11 

N.3  13  ?» 

CALL  3tTBY(<3PH,INT»K3PHT)  13  25 

IF(k3PhT.eq.oi  n.2  13  26 

D9  10  I«1.N  13  27 

CALL  PTBYII8.  1PBSN.,I»2»EBFFS(I  >  )  13  2« 

10    C9NTI\oE  13  29 

CALL  StTdYIENTLYC, INT.CLC)  13  3; 

CY«KCLlCLC*l )  13  31 

C»LL  GETSYldlAS, INT.BI  )  13  3» 

33 

3k 

35 

EBFFA  .  E9F>A  -  CY  13  36 

20  C9NTI..IUE  13  37 

CALL  GfcTdYl IS, IP8Sn*», IF8T)  13  J« 

C        ENTER  Thj  a  PHASE  ENTRY  9FFSET  l\  the  E'-BFF  adhay,  i^L^SS  (I'^O  13  39 

C           IFOT  NBT  E<JU*L  0.  IN  *HICH  CASE  THE  g  PHASE  BFFStT  IS  E' TE^ED  13  >0 

C          E'NBFF  ARRAY  (THE  LATTE*  CASE  IS  rec  INTERSECTIONS  <■- fRE  TH£  B  13  h\ 

C          BEoINS  AT  INTERVAL  1)  13  »? 

1F(k3PhT.EJ>0.ANO.IF8T.NE.O)  EBFFA  •  ?«E9FFS(2)                      13  "3 

CALL    PTd"(ENSF> , INT. EBFFA)  13  »» 

RETURN                                                                                                                                                                  13  "5 

ENU                                                                                                                                                                          13  »6 
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2.6.110    ROUTIN E  TRN  PAR 


RSUTl JL!        TRNPA» 


TRNP*R 

SU^HejTlNF     TRNPAR 
C9-""t)N    ZoL<lS/      CICTFO) 

•  C»NT;m62>  /       CUR8F<31) 

•  enbffisi)       .     sasTaE1*) 

•  GLAiJClliit)       <       a<3GG<12<t> 
.    SSSSl  12»)  ,       TK.-I31  ) 

CS^MSN    /aL<7    /Aijt,!  (  16| 


CT93F,f)  ,  ST-jy.lm 

CYClC<31i  »  EMNM»96i 

GA«/TRf  31  I  i  33.TPI31  I 

Gj»bCli?«l  .  lNTCof.96> 
»R<8F,11 | 

INTHIOJi       <     I-^iKllI       . 


•  XLTCl 17I...3PHI (3i ) . STuPF, NSL ( 31  I 
CS^na-j  /flL<l»/   CLENG        ,   OTLNG  C^lNo 

•  DJMY1.  D0MY2.  CNTLN(372)iENTFL(5)« 

•  KCLI17).  <0TF(17),  «CSF<17>, 

•  \1vAh(31)  i       S£r.SKH>  ,       VRlNT(123l       /       1-KPT^{-)«| 

C9irBN    /j2cb^T/    «anBFS(l?»lj',)(lS»)»!E»(3i)»EVTCVC<3l  I »  SPLIT  (IB* 
1    CBRPM31) 
CBinei:   /SECriw    ISECT(i) 

DIiE^SlSN    1NTM.'(»5)iJT(lI,JBi7I,  IE8FFI4  ) 
M8IM    a    & 
SjlDEL    d    0. 

D8    F8R    ALL    LBRE    ORft'JPS 
09    501;    I»l»* 
!F(  ISECT(  1  ).EQ"?>    OB    T9    SO"* 

SET     INTEMSECTISM    NUMBERS    IN    CB'E    QR»uP 

CALL    GgTINTI I, I-TNOI 

9BTAIN    TI«L    IM9    CVCLE    AND    EMTRV    CVCLf    LENGTH 

I  J     a     I'.TVBIll 

CALL    GETlYlfcNYCYC,  [J/  Jl  I 

tCCLE.<CL(dWl)/2 

ENTT.nr.TCI  jl*l  >/2»10 

C»LL    PfcRI95(ENTT,3..ECYCLE.ECYCLE] 

DB    *JO    J»l«»5 

IF(  |NT,\8<  Jl-ECo)  uB  TO  5C3 

GET  *Bk<IN0  8FFSET 

CALL  uETiY(*RKBF, INTNSI J), I«TN) 

»,RKF0sIRTN/2 

LET    »9k<IN.j   CYCLE    LENGTIf  AND    TI*E    IN    CYCLE 

I  j    ■     Ji-TNBU) 

CALL    UETBYlLYCLC. I  J. Jl) 

*CYCLE»<CL(Jl*ll/2 

«R«T«<CTC( jl+i)/2 

ADJ  10  SEC9NDS  TB  TIME  In  CYCLE  LENStm  AND  M8DUL8 

»R»T  s  iRKT  ♦  10« 

CALL  PERI85(*H«T»o«' "CYCLE. KCYCLE) 

DELTA  bETliCEN  "BRKING  CYCLE  TIME  *    Jr,  AND  ".BRKIVG  OFFSET 

kRK6FP.*-(KT"«RAFB 

CALL   PERIBSI*Ri«8FP#0»j«CVCLE»WCVClE| 


21 
2? 
23 
2» 


?7 

2B 
29 
3^ 
31 
32 
33 
3A 
36 
36 
37 
39 
39 


GE'  Entry  sffset 

CALL  «AC«(IJ(Jt<) 

IRTN  m    JB(l) 

ENTBF  i  IRTN 

DELTA  6ET*EEN  ENTRY  CYCLE  TImf.  ♦  10  AND  ENTRY  8FFSET 

ENIBFP  •  ENTT  -  LNTBF 

CALL  °ERIB5(ENTeFP,0..ECYCLE,ECYCLE) 

SJ~  DEL  8FFSETS  ANQ  NUMBER  9F  INTERSECT I9NS 
DELBFF  •  hRKSFP  -  E*TBFP 

SiTCEL  «  SuMDEL  ♦  l>tLB»-f 
S3  INT  e  MB  I  NT  t  1 

•  '  CSMTlNiiE 
CSNT1\.  E 


bo 
SI 
b? 
53 
b» 
55 
56 
57 


63 
61 
6? 
63 


CBV 


jTl  TRANSITtti't  PARAMETER 


600 

c 


'F(\9|   ,T    .-jT.    :j)A-<IN.SJM3EU/N9|NT 

'      ■-5III9N    PARA-LTER    Tj    all    ENTRy    nFFS£TS 

600    U1.6 

li"(ISECT(  I  |.E3«0)    GB    TB    80: 

3E'  INTERSECTION  N^f-aER  IN  CeRE  GRSjp 
CALL  JtTINTI I, INTN8I 

BBTAIM  Entry  C'ClE  LENoT- 
IJ  •  I  >Tr,8(l  I 
CALL  jETjYiE'.TLYC.  IJ,  Jl  I 
ECYCLF.i<CL(  JU1I/2 

GET  ENTRY  9FFSET  FPR  £ACm  I  VTrRSECT  It»\ 

.08    700    J    •    li*b 
IF( |\TK9(u)«EQO)    GB    T9    800 
U«IMN8(j) 

CALL    MaCA(1J,jo) 
D9    6JJ    «Jal.3 
E9FF    .    Jd(<<J) 
£8»F    •    E9FF    »    ai-IM 
-I80ULB    9FFSET 

C'LL    PtRI8b(EBFF,o.,ECYCLE.ECYCLE) 
IEBFF(K<J)     •    F.SFF     ♦     ,5 
C9NT1 *UE 


7J 
7? 
73 
>t 
7? 
76 
77 
78 
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Sf»RE    ENTRY    8FFSET 

■  I Ij< !EefF) 


CALL  Po'EHF 

703 

C9NTI\uE 

RUJ 

C9MI-J..E 
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Ill    SUBROUTINE  GETBI, 
ALSO  INCLUDES: 


LISTING 


2.6. 112 
2.6.  113 
2.6. 114 
2.6.  117 

2.6. 118 

2.6. 119 

2.6. 120 


SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 


GETBY 

HALF 

PKBIT 

PTBI 

PTBY 

PTHLF 

UN  BIT 


R'JUTlNE  !       &tT»Y»PTBY»3ETBIjPTaijhALFjPTHt_F»UNBlTiP<BIT 


PTAB 

PTAB1 

CjETBY 


JETIv/PTc 
T1TLL 


PA^E 

OEF 

DEF 

DEF 

def 

DEF 
DEF 
DEF 
OEF 

mef 

PSYS 

SYSTEM 

PAut 

BSuNO 

OATA 

DATA,? 

WES 

OATA 

LCI 

Pb..»0 

Xa#  Rl 

Lw,f»2 

BJEZ 

L«»«2 

AND/K2 

L«»R3 

B3tZ 

L*»R3 

Anu,R3 

Ln,R* 

Bit  2 

l»,Xh 

ANG*RJ* 
Lw,R5 
AI.B5 
Ld,>f:7 

ST...R7 

LCI 

PLMJO 

A*',R15 

B 

PAoE 

TITLE 


.  SETbl,PT8I»HALF,PT«LF,l^RIT,PKFJIT 
•••••  RBuTtNE  r-.ETBY  »  r,ET  BYTE  .. 

SUBROUTINE  SETbY(X,!,Y| 

X.tfYTE  STRING 

I. BYTE  INDEX 

Y. OUTPUT  VARIABLI 


oETBY 
PTBY 
GFTBI 
PTBI 

HALF 
PTMLf 
UNBIT 
PKBIT 

"ASK 

1 

UTCSRi 


PTAB 

RlS 

O.Ri 

•  ♦2 

•  R2 

»X' 1FFFF I 

1,»1 

%*2 

•  RJ 

•  x1  IFFTFi 
2,R1 

t*2 

•  R» 
■V'IFFFF' 

•  R3 
•1 

•R2«-*5 
«F*» 

0 

PTAB 
«11 
•RlS 


ADDRESS  8F  x 


HAS*  9UT  8P  CtfDE 
ADDRESS  8F  I 


MASK  BUT  8P  C6DE 
ADDRESS  8F  Y 


1ASK  BUT  8P  C9DE 

RobJ 

INDFX  NUMBER 

SET  BYTE 

stbre  in  y  fsr  return 


return 


'••••  R8UTINE  PTBY  •  Pack  BYTE 

SUBR8UTINE  PTBV(X,I/Y) 

X.BVTE  STRING 

I.BYTE  INDEX 

Y. INPUT    VRMtLE 


page 

LCI- 

c 

PSF  »J 

PTAB 

X«,"i 

-!'-> 

L/,,R2 

; » ^i 

ADDRESS  OF  x 

BjE2 

*«2 

L«,R2 

•  R? 

am:.,r? 

•  X'lFFFT' 

MASK  BUT  8P  CBDE 

Lx.RJ 

IjRl 

ADDRESS  BF  I 

sat  2 

.♦2 

Ifc.RS 

•  RJ 

A  lb  I  -i.' 

•X' !FFFF' 

•1ASK  8JT  9P  CBOE 

L*»R- 

c-*I 

ADDRESS  BF  Y 

BotZ 

a  .2 

L»,R» 

OR* 

A  .w<» 

■  X '  If  FFF< 

MASK  SOT  »P  CPDE 

L«.*7 

•  <>* 

K7.Y 

L-i^b 

•  ->.> 

R3=I 

AI,R5 

•1 

INDEX  NUMBER 

ST,  .'-J7 

"5£,«5 

STBRC  BYTE 

.CI 

r. 

°L'-<0 

PTAS 

A.n,RJ5 

RJ* 

5 

1 

S 

2 

5 

3 

5 

it 

5 

5 

5 

6 

5 

7 

S 

S 

5 

9 

5 

10 

5 

11 

5 

IS 

5 

13 

5 

1* 

5 

15 

5 

It 

5 

17 

5 

IS 

5 

19 

5 

20 

5 

21 

S 

2? 

5 

23 

S 

24 

5 

?5 

5 

2b 

5 

27 

5 

21 

S 

29 

5 

30 

5 

31 

5 

32 

5 

33 

5 

3» 

5 

35 

5 

36 

B 

37 

5 

35 

5 

39 

5 

10 

5 

"1 

5 

»a 

S 

»3 

5 

•« 

S 

*5 

5 

•  6 

S 

<>7 

5 

48 

5 

»9 

S 

50 

5 

SI 

5 

52 

S 

S3 

5 

5* 

5 

55 

5 

56 

5 

57 

5 

58 

5 

59 

D 

60 

5 

61 

5 

62 

5 

63 

5 

61, 

5 

65 

S 

66 

s 

67 

5 

68 

5 

69 

s 

70 

5 

71 

5 

72 

5 

73 

5 

7» 

5 

75 

5 

76 

5 

77 

s 

78 

5 

79 
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PAbE 

TITLE. 


#RJS  RETURN 

'•«••  K9UTINE.  HALF  •  SET  HALFwBRD  »•• 

SUBR9UTINE  HALF (X.  I.V) 
»>HALF*ORD  STRJNb 
IshalFwSRD  INOEx 
Y.HUTPUT  VARIABLE 


°AUE 

LCi 

0 

PSrl.O 

PTAB 

Xn.Rl 

R15 

Lii.HS 

9.R1 

AOnRESS  BF  X 

BSEZ 

»*2 

L-.R2 

•  R2 

•NU.R2 

JX'lFFFF' 

«A5K  8UT  8P  CBDE 

L..R3 

1»«1 

AD0RE3S  9F  I 

BGE2 

e»2 

L».R3 

•S3 

AND.R3 

.a'KFFF' 

MASK  BUT  9P  CBDE 

L«.R4 

2.R1 

ADDRESS  Of  Y 

BSE  I 

**Z 

L-.»» 

»R» 

AMU.R4 

sX'IFFFF' 

MASK  BUT  BP  C8DE 

LW,R5 

.93 

RSs! 

AI.R5 

-1 

INDEX  NUMBER 

Lh,<<7 

»R2j=<5 

RToWALFWBRD 

STa.R7 

»R<! 

VoR7 

LCI 

0 

PLh;0 

PT*9 

AW.R15 

Hll 

B 

*M5 

RETURN 

PAbE 

TITLE 

' »«•«  R9UTINE 

PTHLF  *  PACK  KALf^BRD 

SUbRBUTINE  PTHLF( X.IiY) 
X.HALFwSRD  STRING 
IiHALFwBRD  INOfX 
V. INPUT  VARIAbi  f 


PAuE 

LCI 

0 

PSM.O 

PTAB 

Xw.Rl 

RlS 

L*,R2 

O.Rl 

ADDRESS  OF  X 

aotz 

*+2 

L-.R2 

•R2 

ANli.RJ 

•X'IFFFF' 

M15K  BUT  BP  CBDE 

L.»,R3 

.1.R1 

ADDRESS  9F  I 

BGEZ 

**2 

L»,R3 

•  P3 

Amu.R3 

■X'IFFFF' 

mask  but  sp  cdDE 

L»,R4 

2.R1 

ADDRESS  SF  V 

tGEZ 

•  ♦2 

L*.R» 

•  R<+ 

».«u»1« 

•X'IFFFF' 

MASK  BuT  6F  CBDE 

L«.R5 

•R3 

R5,j 

AI,R5 

•1 

INDEX  NUMBER 

L*«R7 

•  R4 

R7oV 

ST".R7 

•R2.R5 

ST8RE  HALF«8R0 

LCI 

0 

PLM.O 

PTAB 

A-..R15 

*14 

RESTPRt  "EGISTER 

B 

•R15 

RETURN 

TITLE 

'••»«  R8UTIVE 

GETBIT»  GET  BIT  •  •••' 

SIJBP8UTINE  GETfll  (X. 

I<T,  Jl 

A.UIT  STRING 

UfalT  INDEX 

V.9UTPUT  VARIABLE 

J. INTERLEAVED 

FLAG 

PAbE 

LCI 

0 

PS,<«0 

PTAS 

Xw.Rl 

RlS 

L*.R11 

C.-.R1 

ADORFSS  BF  X 

BGtZ 

*.2 

L"»R11 

•RU 

A'4u/Rll 

.X'IFFFF' 

MASK  BUT  »P  C3DE 

LW,Rl« 

l.Rl 

ADDRESS  8F  I 

bgez 

**2 

L*»R14 

»R14 

ANu»Rl» 

•X' 1FFFF' 

MASK  BuT  BP  CBDE 

L»,hl2 

2.R1 

ADDRESS  BF  V 

B5EZ 

6+2 

L".R12 

•K12 

AN„»HJ? 

HX'IFPFF' 

MASK  BUT  BP  C6CE 

L*,R13 

3.R1 

'DDRESS  BF  J 

BSE/ 

0*2 

La,R13 

•  R13 

A'.D.RI  j 

•X'IFFFF' 

MASK  BUT  BP  CBDE 

L«.«i 

•  PI'S 

AI.R2 

•1 

INDEX  NUMBER 

L«.RiO 

«R13 

INTERLEAVED  FLAG 

L„«o 

R2 

SLS<R6 

e5 

*8RD  INDEX 

Ln,R7 

R6 

K8RD  INDEX 

CI. RIO 

1 

BNE 

»«2 

NBT  INTERLEAVED 

Ak,R7 

R7 

►BRO  INDEX. *8RD 

SLS.R6 

o 

S».R6 

«? 

LCk.R6 

«6 

MASK  W8RD  INUE* 

L»»R15 

MASK.R6 

SO 

81 

8? 

83 

8« 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

10* 

10b 

106 

107 

ios; 

10S 


5 

110 

5 

111 

6 

11? 

5 

113 

5 

114 

5 

115 

5 

116 

5 

117 

5 

lis 

5 

119 

5 

120 

S 

121 

5 

122 

5 

123 

5 

121 

5 

125 

5 

126 

S 

127 

5 

128 

5 

129 

5 

130 

5 

131 

5 

132 

'5 

133 

5 

134 

5 

135 

5 

136 

5 

137 

5 

139 

5 

139 

S 

140 

s 

141 

5 

142 

5 

143 

5 

14<, 

5 

145 

s 

146 

5 

147 

5 

148 

5 

149 

5 

150 

5 

1M 

5 

1S2 

5 

153 

5 

154 

5 

155 

5 

156 

5 

157 

5 

158 

5 

159 

5 

160 

5 

161 

5 

162 

5 

163 

5 

164 

5 

165 

5 

166 

S 

167 

s 

168 

s 

169 

5 

170 

5 

171 

5 

17? 

S 

173 

5 

m 

5 

175 

5 

176 

5 

177 

5 

17P 

5 

179 

5 

180 

5 

181 

5 

182 

5 

1*3 

5 

184 

5 

185 
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LBBP 


LS.R15 

•rii«b7 

AI.R4 

•31 

SLS«R15 

5/W6 

ST„/H|5 

•R12 

LCI 

~ 

PL1--J 

PTAB 

A*,R15 

«1» 

o 

•sis 

PA.,E 

TITLE 

'••••  a 

GET  BIT 

STSRE  IN.  V  FBR  RFT'uRN 


LETUPS 
•  •••  R8lTInE  pTbl  •  PACK  BIT  •»••• 

•  SU8RSUTINE  HTBI  (X/I.V.J) 

•  X-BIT  STJUMa 

•  MBIT  IMJEX 

•  Y.INPU7  VARIA3LL 

P*uE 

PTCI      LCI  S 

PSl  i»0  PTAB 

X«,R1  HIS 

1-«*<*1 1  0<Rl  ADDRESS  BF  X 

BjEZ  *<-? 

L».Rii  «r:i 

ANL>»R11  «X'lFFFFt  MASK  BUT  9P  CBDE 

L»,Rl»  1,R1  ADDRESS  Br  I 

bsez  *»? 

L».R1<>  "Rl" 

Af.'J/RJ*  •X'JFFFF1  MASK    BUT    8P    CBDE 

L»«R12  2»»1  ADDRESS    9F    V 

BSEZ  »  +  2 

1*1*13  «R12 

A  JC««12  •x'IFFFF'  MASK    8uT    8P    C8DE 

L«,«13  3,R1  ADDRESS    8F    J 

BiEZ  »*2 

LA.R13  »R13 

ANu»»13  .x'lFFFF'  "ASK    BUT    9P    C90E 

L«»R2  •&!» 

A1.R2  «J  INDEX    NUMBER 

LK.RIO  »PJ3  INTFRLEAVED    FI.AG 

L«.Rft  K? 

SLS.Rfc  -5  *BRS  INDEX 

L...R7  *6  *8RD  INDEX 

CI, RlO  1 

BNE  *»2  N8T  INTERLEAVED 

A*jR7  ?7  INTERLEAVED 

SLS*S6  i 

SwjS6  «£ 

LCw/R6  Ri 

Lw,RJ5  maSK.R* 

L/I.R1*  'RIS 

AI.R6  »3S 

LC*'R6  Rfc 

SLS.Rl*  0,H6  SMITT  TJ  C3RRECT  PBSITTS* 

STS.Rl*  «R11»R7  ST8RE  BIT 

LCI  0 

PLM»0  FTAB 

AW/R15  HI* 

B  «R1S 

PauE 

TITLE  !••••  R8UTINE  UNBIT  »  UNPACK  BITS  •  •••■ 

.         SU^BJTINE  UNdlTlSw. I.ANSl 
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2.6.115    SUBROUTINE  PKB.YT     LISTING 
ALSO  INCLUDES: 

2.6.116    SUBROUTINE  PKHW 
2.  6.  121    SUBROUTINE  UPBYT 
2.  6.  122    SUBROUTINE  UPHW 


?9jtIme:     bfd»"r.p«.a'rT.u<,H/.<PK*is 

.  •  JPBYT.PKnYT/ijPHWjPKH..  1  1 

DEF  uPBYT»PKerT/U°H1,HHH«  »  ? 

&EF  aETdY.PTRV.HALf.PTHLF  »  3 

jPSYl  ELU  GETtJY  »  » 

PK.HY!  t3u  PTBY  »  5 

,Pi»  ERu  MAL*-"  »  «■ 

P<-|>  EJJ  PT-LF  »  7 

ENj  »  S 


210 


2.6.123    SUBROUTINE  FMTNUM,    LISTING 
ALSO  INCLUDES: 
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